 Plot()
 {
  Outlier_Model("General",T(5),U(0,4),"t");
  P_Sequence("S18 Complete",1,1,U(-2,2))
  {
   Axis(calBP(9500), calBP(1250));
   Tau_Boundary();
   R_Date("S18M7Macro (Start peat initiation process)",3267,24)
   {
    z=1172.0;
    Outlier(0.05);
   };
   R_Date("S18M8Macro (Basal Peat)",3024,24)
   {
    z=1173.0;
    Outlier(0.05);
   };
   Date("Date query 1178cm (End peat initiation process)")
   {
    z=1178.0;
   };
   R_Date("S18M11Macro",1892,24)
   {
    z=1179.0;
    Outlier(0.05);
   };
   Boundary();
   Difference("Timespan of peat initiation", "Date query 1178cm (End peat initiation process)", "S18M7Macro (Start peat initiation process)");
  };
 };
