diff options
Diffstat (limited to 'R/plot.mmkin.R')
| -rw-r--r-- | R/plot.mmkin.R | 18 |
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) |