Option to add residual plot to plot.mkinfit

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)

 }