aboutsummaryrefslogtreecommitdiff
path: root/R
diff options
context:
space:
mode:
Diffstat (limited to 'R')
-rw-r--r--R/plot.mkinfit.R8
1 files changed, 6 insertions, 2 deletions
diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index b42ce097..baa88069 100644
--- a/R/plot.mkinfit.R
+++ b/R/plot.mkinfit.R
@@ -186,11 +186,15 @@ plot.mkinfit <- function(x, fit = x,
# Show residuals if requested
if (show_residuals) {
residuals <- subset(fit$data, variable %in% row_obs_vars, residual)
- if (maxabs == "auto") maxabs = max(abs(residuals), na.rm = TRUE)
+ if (maxabs == "auto") {
+ maxabs_row = max(abs(residuals), na.rm = TRUE)
+ } else {
+ maxabs_row = maxabs
+ }
if (!sep_obs) par(mar = c(5, 4, 0, 2) + 0.1)
plot(0, type="n",
xlim = xlim,
- ylim = c(-1.2 * maxabs, 1.2 * maxabs),
+ ylim = c(-1.2 * maxabs_row, 1.2 * maxabs_row),
xlab = xlab, ylab = "Residuals")
for(obs_var in row_obs_vars){
residuals_plot <- subset(fit$data, variable == obs_var, c("time", "residual"))

Contact - Imprint