diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-05-20 14:11:51 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-05-20 14:11:51 +0200 |
| commit | 203364b072697ac154b25569bd9c1a7ba487c9d5 (patch) | |
| tree | f72e43f9eb44e6dd88315068ec6aee7684cc78ce /R/mkinerrplot.R | |
| parent | c9cc66f2557ee67db0d4d9ff724c68fd24c593b7 (diff) | |
Only use colors for error model "obs"
Diffstat (limited to 'R/mkinerrplot.R')
| -rw-r--r-- | R/mkinerrplot.R | 6 |
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) { |