Update helpers

SPATIAL-Lab · Dec 6, 2022 · 79ee0d6 · 79ee0d6
1 parent 56088cd
commit 79ee0d6
Show file tree

Hide file tree

Showing 2 changed files with 6 additions and 0 deletions.
diff --git a/R/helpers.R b/R/helpers.R
@@ -50,6 +50,9 @@ drift = function(d.good, plrm1, plrm2, slrm){
        xlab = "Sequence #", ylab = expression(delta^{13}*"C offset"))
   points(dl[[2]]$Row, dl[[2]]$d13C.off, bg = 2, pch = 21)
   points(sl$Row, sl$d13C.off, col = 3)
+  text(dl[[1]]$Row, dl[[1]]$d13C.off, dl[[1]]$Row)
+  text(dl[[2]]$Row, dl[[2]]$d13C.off, dl[[2]]$Row, col = 2)
+  text(sl$Row, sl$d13C.off, sl$Row, col = 3)
 
   #spline fit
   ssc = smooth.spline(r.all, c.all, df = floor(length(r.all)/3))
@@ -63,6 +66,9 @@ drift = function(d.good, plrm1, plrm2, slrm){
        xlab = "Sequence #", ylab = expression(delta^{18}*"O offset"))
   points(dl[[2]]$Row, dl[[2]]$d18O.off, bg = 2, pch = 21)
   points(sl$Row, sl$d18O.off, col = 3)
+  text(dl[[1]]$Row, dl[[1]]$d18O.off, dl[[1]]$Row)
+  text(dl[[2]]$Row, dl[[2]]$d18O.off, dl[[2]]$Row, col = 2)
+  text(sl$Row, sl$d18O.off, sl$Row, col = 3)
 
   #spline fit
   sso = smooth.spline(r.all, o.all, df = floor(length(r.all)/3))

diff --git a/out/220920_22-243.xlsx b/out/220920_22-243.xlsx