aboutsummaryrefslogtreecommitdiff
path: root/R/plot.mkinfit.R
diff options
context:
space:
mode:
Diffstat (limited to 'R/plot.mkinfit.R')
-rw-r--r--R/plot.mkinfit.R9
1 files changed, 5 insertions, 4 deletions
diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index df9888e7..2a82301f 100644
--- a/R/plot.mkinfit.R
+++ b/R/plot.mkinfit.R
@@ -31,7 +31,8 @@ plot.mkinfit <- function(x, fit = x,
maxabs = "auto",
sep_obs = FALSE, rel.height.middle = 0.9,
lpos = "topright", inset = c(0.05, 0.05),
- show_errmin = FALSE, errmin_digits = 3, ...)
+ show_errmin = FALSE, errmin_digits = 3,
+ frame = TRUE, ...)
{
if (add && show_residuals) stop("If adding to an existing plot we can not show residuals")
if (add && show_errplot) stop("If adding to an existing plot we can not show the error model plot")
@@ -138,7 +139,7 @@ plot.mkinfit <- function(x, fit = x,
if (add == FALSE) {
plot(0, type="n",
xlim = xlim, ylim = ylim_row,
- xlab = xlab, ylab = ylab, ...)
+ xlab = xlab, ylab = ylab, frame = frame, ...)
}
# Plot the data
@@ -197,7 +198,7 @@ plot.mkinfit <- function(x, fit = x,
plot(0, type="n",
xlim = xlim,
ylim = c(-1.2 * maxabs_row, 1.2 * maxabs_row),
- xlab = xlab, ylab = "Residuals")
+ xlab = xlab, ylab = "Residuals", frame = frame)
for(obs_var in row_obs_vars){
residuals_plot <- subset(fit$data, variable == obs_var, c("time", "residual"))
points(residuals_plot, pch = pch_obs[obs_var], col = col_obs[obs_var])
@@ -208,7 +209,7 @@ plot.mkinfit <- function(x, fit = x,
# Show error model plot if requested
if (show_errplot) {
mkinerrplot(fit, obs_vars = row_obs_vars, pch_obs = pch_obs[row_obs_vars], col_obs = col_obs[row_obs_vars],
- legend = FALSE)
+ legend = FALSE, frame = frame)
}
}
if (do_layout) par(oldpar, no.readonly = TRUE)

Contact - Imprint