From ee99cf40fdf6d986a909010d18063ad032f69899 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Mon, 2 Sep 2019 16:14:50 +0200
Subject: Some changes to improve plots on beamer slides

---
 R/mkinerrplot.R | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

(limited to 'R/mkinerrplot.R')

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"))
-- 
cgit v1.2.1