color swithch in dotplot

2021-03-19 14:46:23 +01:00 · 2021-03-19 14:46:23 +01:00 · 9f52704bce
commit 9f52704bce
parent b43f5542bd
1 changed files with 3 additions and 1 deletions
--- a/RBBGCMuso/R/multiSite.R
+++ b/RBBGCMuso/R/multiSite.R
@ -178,9 +178,11 @@ multiSiteCalib <- function(measurements,
                  xlab=expression("measured "~(kg[C]~m^-2)),
                  ylab=expression("simulated "~(kg[C]~m^-2)),
                  cex.lab=1.3,
+                  col="red",
+                  pch=19,
                  pty="s"
             )
-             points(measured,calibrated,pch=20)
+             points(measured,calibrated, pch=19, col="blue")
             abline(0,1)
             legend(x="top",
                    pch=c(1,19),