From 9f52704bce57c5750fc01adabab9bebeec7e9a68 Mon Sep 17 00:00:00 2001
From: Hollos Roland <hollorol@gmail.com>
Date: Fri, 19 Mar 2021 14:46:23 +0100
Subject: [PATCH] color swithch in dotplot

---
 RBBGCMuso/R/multiSite.R | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/RBBGCMuso/R/multiSite.R b/RBBGCMuso/R/multiSite.R
index af8bef5..7482ea7 100644
--- 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),