diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2019-09-02 16:14:50 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2019-09-02 16:14:50 +0200 |
| commit | ee99cf40fdf6d986a909010d18063ad032f69899 (patch) | |
| tree | a122d1249db9b27a2bc45a06b4ed05a33b8fb9ba /R/mkinerrplot.R | |
| parent | 9ffec8b386646c51d1458f9c9c7b3124a8d9c91c (diff) | |
Some changes to improve plots on beamer slides
Diffstat (limited to 'R/mkinerrplot.R')
| -rw-r--r-- | R/mkinerrplot.R | 3 |
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")) |