 Plot()
 {
  Outlier_Model("General",T(5),U(0,4),"t");
  P_Sequence("S17 Complete",1,1,U(-2,2))
  {
   Axis(calBP(20000), calBP(3500));
   Tau_Boundary();
   Date("Date query 717cm (Start peat initiation process)")
   {
    z=717.0;
   };
   R_Date("S17M3Macro",8370,80)
   {
    z=719.0;
    Outlier(0.05);
   };
   R_Date("S17M11Macro (Basal Peat)",8305,30)
   {
    z=720.0;
    Outlier(0.05);
   };
   R_Date("S17M12Macro",8400,80)
   {
    z=721.0;
    Outlier(0.05);
   };
   Date("Date query 724cm (End peat initiation process)")
   {
    z=724.0;
   };
   R_Date("S17M4Macro",7168,30)
   {
    z=728.0;
    Outlier(0.05);
   };
   R_Date("S17M6Macro",7300,80)
   {
    z=730.0;
    Outlier(0.05);
   };
   Date("Date query 739cm")
   {
    z=739.0;
   };
   Date("Date query 743cm")
   {
    z=743.0;
   };
   R_Date("S17M7Macro",5077,27)
   {
    z=747.5;
    Outlier(0.05);
   };
   R_Date("S17M8Macro",4395,26)
   {
    z=748.5;
    Outlier(0.05);
   };
   R_Date("S17M9Macro",4388,24)
   {
    z=749.5;
    Outlier(0.05);
   };
   Boundary();
   Difference("Timespan of peat initiation", "Date query 724cm (End peat initiation process)", "Date query 717cm (Start peat initiation process)");
  };
 };
