 Plot()
 {
  Outlier_Model("General",T(5),U(0,4),"t");
  P_Sequence("S20 Complete",1,1,U(-2,2))
  {
   Axis(calBP(9000), calBP(1500));
   Tau_Boundary();
   Date("Date query 1029cm (Start peat initiation process)")
   {
    z=1029.0;
   };
   Date("Date query 1030cm (Basal Peat)")
   {
    z=1030.0;
   };
   R_Date("S20M6Macro",2974,24)
   {
    z=1031.0;
    Outlier(0.05);
   };
   R_Date("S20M11Macro",3163,26)
   {
    z=1032.0;
    Outlier(0.05);
   };
   R_Date("S20M12Macro",2910,30)
   {
    z=1033.0;
    Outlier(0.05);
   };
   Date("Date query 1034cm (End peat initiation process)")
   {
    z=1034.0;
   };
   R_Date("S20M8Macro",2229,22)
   {
    z=1036.0;
    Outlier(0.05);
   };
   R_Date("S20M9Macro",2225,22)
   {
    z=1037.0;
    Outlier(0.05);
   };
   Boundary();
   Difference("Timespan of peat initiation", "Date query 1034cm (End peat initiation process)", "Date query 1029cm (Start peat initiation process)");
  };
 };
