From dd80ab5d64bc6b56587b0542dc95e965a3a25590 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Sat, 24 Oct 2020 00:32:00 +0200 Subject: Plot method for nlme.mmkin objects Update docs --- R/plot.mmkin.R | 18 ++++++++++-------- 1 file changed, 10 insertions(+), 8 deletions(-) (limited to 'R/plot.mmkin.R') 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) -- cgit v1.2.1