aboutsummaryrefslogtreecommitdiff
path: root/R/plot.mmkin.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/plot.mmkin.R')
-rw-r--r--R/plot.mmkin.R6
1 files changed, 4 insertions, 2 deletions
diff --git a/R/plot.mmkin.R b/R/plot.mmkin.R
index 0523e4d3..f8ed1f9a 100644
--- a/R/plot.mmkin.R
+++ b/R/plot.mmkin.R
@@ -15,6 +15,7 @@
#' @param resplot Should the residuals plotted against time, using
#' \code{\link{mkinresplot}}, or as squared residuals against predicted
#' values, with the error model, using \code{\link{mkinerrplot}}.
+#' @param ylab Label for the y axis.
#' @param standardized Should the residuals be standardized? This option
#' is passed to \code{\link{mkinresplot}}, it only takes effect if
#' `resplot = "time"`.
@@ -55,6 +56,7 @@
#' @export
plot.mmkin <- function(x, main = "auto", legends = 1,
resplot = c("time", "errmod"),
+ ylab = "Residue",
standardized = FALSE,
show_errmin = TRUE,
errmin_var = "All data", errmin_digits = 3,
@@ -117,9 +119,9 @@ plot.mmkin <- function(x, main = "auto", legends = 1,
fit <- x[[i.fit]]
if (ymax == "auto") {
- plot(fit, legend = legends == i.fit, ...)
+ plot(fit, legend = legends == i.fit, ylab = ylab, ...)
} else {
- plot(fit, legend = legends == i.fit, ylim = c(0, ymax), ...)
+ plot(fit, legend = legends == i.fit, ylim = c(0, ymax), ylab = ylab, ...)
}
title(main, outer = TRUE, line = -2)

Contact - Imprint