diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2020-04-15 09:09:00 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2020-04-15 09:09:00 +0200 |
| commit | 637bd14fed5ab8a615f0d879012f12c59e1532a4 (patch) | |
| tree | 076f9319dca60cc35e18c44ee2d338b423b2f967 | |
| parent | 082be7baa35d7e8131a70ca8cc061d90e08fa584 (diff) | |
Show fit information even if show_errmin = FALSE
| -rw-r--r-- | R/plot.mmkin.R | 9 |
1 files changed, 5 insertions, 4 deletions
diff --git a/R/plot.mmkin.R b/R/plot.mmkin.R index 15ea86eb..ac66e542 100644 --- a/R/plot.mmkin.R +++ b/R/plot.mmkin.R @@ -16,7 +16,7 @@ #' \code{\link{mkinresplot}}, or as squared residuals against predicted #' values, with the error model, using \code{\link{mkinerrplot}}. #' @param standardized Should the residuals be standardized? This option -#' is passed to \code{\link{mkinresplot}}, it only takes effect if +#' is passed to \code{\link{mkinresplot}}, it only takes effect if #' `resplot = "time"`. #' @param show_errmin Should the chi2 error level be shown on top of the plots #' to the left? @@ -41,6 +41,7 @@ #' cores = 1, quiet = TRUE, error_model = "tc") #' plot(fits[, "FOCUS C"]) #' plot(fits["FOMC", ]) +#' plot(fits["FOMC", ], show_errmin = FALSE) #' #' # We can also plot a single fit, if we like the way plot.mmkin works, but then the plot #' # height should be smaller than the plot width (this is not possible for the html pages @@ -137,6 +138,8 @@ plot.mmkin <- function(x, main = "auto", legends = 1, chi2_text <- bquote(.(fit_name) ~ chi^2 ~ "error level" == .(chi2_perc)) } mtext(chi2_text, cex = cex, line = 0.4) + } else { + mtext(fit_name, cex = cex, line = 0.4) } if (resplot == "time") { @@ -144,9 +147,7 @@ plot.mmkin <- function(x, main = "auto", legends = 1, } else { mkinerrplot(fit, legend = FALSE, ...) } - if (show_errmin) { - mtext(paste(fit_name, "residuals"), cex = cex, line = 0.4) - } + mtext(paste(fit_name, "residuals"), cex = cex, line = 0.4) } par(oldpar, no.readonly = TRUE) |