aboutsummaryrefslogtreecommitdiff
path: root/inst/GUI
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2014-04-28 17:59:10 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2014-04-28 17:59:10 +0200
commitb4739ba14c5472a23cb3e334d55989f7fbb0afe2 (patch)
treefc4faf095a4b45799b7f54f93cd8dae9263fe826 /inst/GUI
parentf217301d19c9297b3ae3a1b215c8d573cda4c2e5 (diff)
Option to add residual plot to plot.mkinfit
Diffstat (limited to 'inst/GUI')
-rw-r--r--inst/GUI/gmkin.R11
1 files changed, 2 insertions, 9 deletions
diff --git a/inst/GUI/gmkin.R b/inst/GUI/gmkin.R
index 422be57..4d33b35 100644
--- a/inst/GUI/gmkin.R
+++ b/inst/GUI/gmkin.R
@@ -698,19 +698,12 @@ plot_ftmp_png <- function() {
obs_vars_plot = names(ftmp$mkinmod$spec)
}
png(tf, width = 525, height = 600)
- layout(matrix(c(1, 2), 2, 1), heights = c(2, 1.3))
- par(mar = c(3, 4, 4, 2) + 0.1)
plot(ftmp, main = ftmp$ds$title, obs_vars = obs_vars_plot,
xlab = ifelse(ftmp$ds$time_unit == "", "Time",
paste("Time in", ftmp$ds$time_unit)),
ylab = ifelse(ds[[ds.i]]$unit == "", "Observed",
- paste("Observed in", ftmp$ds$unit)))
- par(mar = c(5, 4, 0, 2) + 0.1)
- mkinresplot(ftmp, legend = FALSE, obs_vars = obs_vars_plot,
- xlab = ifelse(ftmp$ds$time_unit == "", "Time",
- paste("Time in", ftmp$ds$time_unit)),
- ylab = ifelse(ds[[ds.i]]$unit == "", "Observed",
- paste("Residuals in", ftmp$ds$unit)))
+ paste("Observed in", ftmp$ds$unit)),
+ show_residuals = TRUE)
dev.off()
return(tf)
}

Contact - Imprint