fixing colors in calibRes
This commit is contained in:
parent
30c788a43c
commit
cda23ca4bd
@ -185,7 +185,8 @@ multiSiteCalib <- function(measurements,
|
|||||||
points(measured,calibrated, pch=19, col="blue")
|
points(measured,calibrated, pch=19, col="blue")
|
||||||
abline(0,1)
|
abline(0,1)
|
||||||
legend(x="top",
|
legend(x="top",
|
||||||
pch=c(1,19),
|
pch=c(19,19),
|
||||||
|
col=c("red","blue")
|
||||||
inset=c(0,-0.1),
|
inset=c(0,-0.1),
|
||||||
legend=c("original","calibrated"),
|
legend=c("original","calibrated"),
|
||||||
ncol=2,
|
ncol=2,
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user