From cda23ca4bd330346b392fb0504053c4dbe759f55 Mon Sep 17 00:00:00 2001
From: Hollos Roland <hollorol@gmail.com>
Date: Fri, 19 Mar 2021 15:47:58 +0100
Subject: [PATCH] fixing colors in calibRes

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

diff --git a/RBBGCMuso/R/multiSite.R b/RBBGCMuso/R/multiSite.R
index 13b621b..1ef9b73 100644
--- a/RBBGCMuso/R/multiSite.R
+++ b/RBBGCMuso/R/multiSite.R
@@ -185,7 +185,8 @@ multiSiteCalib <- function(measurements,
              points(measured,calibrated, pch=19, col="blue")
              abline(0,1)
              legend(x="top",
-                    pch=c(1,19),
+                    pch=c(19,19),
+                    col=c("red","blue")
                     inset=c(0,-0.1),
                     legend=c("original","calibrated"),
                     ncol=2,