fixing colors in calibRes

2021-03-19 15:47:58 +01:00 · 2021-03-19 15:47:58 +01:00 · cda23ca4bd
commit cda23ca4bd
parent 30c788a43c
1 changed files with 2 additions and 1 deletions
--- 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,