aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2019-05-20 14:11:51 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2019-05-20 14:11:51 +0200
commit203364b072697ac154b25569bd9c1a7ba487c9d5 (patch)
treef72e43f9eb44e6dd88315068ec6aee7684cc78ce
parentc9cc66f2557ee67db0d4d9ff724c68fd24c593b7 (diff)
Only use colors for error model "obs"
-rw-r--r--R/mkinerrplot.R6
1 files changed, 3 insertions, 3 deletions
diff --git a/R/mkinerrplot.R b/R/mkinerrplot.R
index a2adcefa..cc163922 100644
--- a/R/mkinerrplot.R
+++ b/R/mkinerrplot.R
@@ -21,7 +21,7 @@ mkinerrplot <- function (object,
obs_vars = names(object$mkinmod$map),
xlim = c(0, 1.1 * max(object$data$predicted)),
xlab = "Predicted", ylab = "Squared residual",
- maxy = "auto", legend= TRUE, lpos = "topright",
+ maxy = "auto", legend= TRUE, lpos = "topright",
col_obs = "auto", pch_obs = "auto",
...)
{
@@ -58,7 +58,7 @@ mkinerrplot <- function (object,
}
if (object$err_mod == "const") {
- abline(h = object$errparms^2, lty = 2, col = col_obs[obs_var])
+ abline(h = object$errparms^2, lty = 2, col = 1)
}
if (object$err_mod == "obs") {
for (obs_var in obs_vars) {
@@ -74,7 +74,7 @@ mkinerrplot <- function (object,
rsd_high = object$errparms[2])^2
}
plot(sigma_plot, from = 0, to = max(object$data$predicted),
- add = TRUE, lty = 2, col = col_obs[obs_var])
+ add = TRUE, lty = 2, col = 1)
}
if (legend == TRUE) {

Contact - Imprint