aboutsummaryrefslogtreecommitdiff
path: root/R/mkinerrplot.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/mkinerrplot.R')
-rw-r--r--R/mkinerrplot.R3
1 files changed, 2 insertions, 1 deletions
diff --git a/R/mkinerrplot.R b/R/mkinerrplot.R
index cc163922..6153a3c0 100644
--- a/R/mkinerrplot.R
+++ b/R/mkinerrplot.R
@@ -23,6 +23,7 @@ mkinerrplot <- function (object,
xlab = "Predicted", ylab = "Squared residual",
maxy = "auto", legend= TRUE, lpos = "topright",
col_obs = "auto", pch_obs = "auto",
+ frame = TRUE,
...)
{
obs_vars_all <- as.character(unique(object$data$variable))
@@ -48,7 +49,7 @@ mkinerrplot <- function (object,
plot(0, type = "n",
xlab = xlab, ylab = ylab,
xlim = xlim,
- ylim = c(0, 1.2 * maxy), ...)
+ ylim = c(0, 1.2 * maxy), frame = frame, ...)
for(obs_var in obs_vars){
residuals_plot <- subset(object$data, variable == obs_var, c("predicted", "residual"))

Contact - Imprint