From b4739ba14c5472a23cb3e334d55989f7fbb0afe2 Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Mon, 28 Apr 2014 17:59:10 +0200 Subject: Option to add residual plot to plot.mkinfit --- inst/GUI/gmkin.R | 11 ++--------- 1 file changed, 2 insertions(+), 9 deletions(-) (limited to 'inst/GUI/gmkin.R') 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) } -- cgit v1.2.1