Plot method for nlme.mmkin objects

Update docs

1 files changed, 10 insertions, 8 deletions

diff --git a/R/plot.mmkin.R b/R/plot.mmkin.R
index ac66e542..0523e4d3 100644
--- a/R/plot.mmkin.R
+++ b/R/plot.mmkin.R
@@ -54,12 +54,16 @@
 #'
 #' @export
 plot.mmkin <- function(x, main = "auto", legends = 1,
-                       resplot = c("time", "errmod"),
-                       standardized = FALSE,
-                       show_errmin = TRUE,
-                       errmin_var = "All data", errmin_digits = 3,
-                       cex = 0.7, rel.height.middle = 0.9,
-                       ymax = "auto", ...) {
+  resplot = c("time", "errmod"),
+  standardized = FALSE,
+  show_errmin = TRUE,
+  errmin_var = "All data", errmin_digits = 3,
+  cex = 0.7, rel.height.middle = 0.9,
+  ymax = "auto", ...)
+{
+
+  oldpar <- par(no.readonly = TRUE)
+
   n.m <- nrow(x)
   n.d <- ncol(x)
 
@@ -82,8 +86,6 @@ plot.mmkin <- function(x, main = "auto", legends = 1,
                   datasets = rownames(x))
   }
 
-  oldpar <- par(no.readonly = TRUE)
-
   # Set relative plot heights, so the first and the last plot are the norm
   # and the middle plots (if n.fits >2) are smaller by rel.height.middle
   rel.heights <- if (n.fits > 2) c(1, rep(rel.height.middle, n.fits - 2), 1)