Convenience wrapper plot_sep, further vignette updates

1 files changed, 6 insertions, 0 deletions

diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index 3ca18c19..303effb5 100644
--- a/R/plot.mkinfit.R
+++ b/R/plot.mkinfit.R
@@ -187,3 +187,9 @@ plot.mkinfit <- function(x, fit = x,
   }
   if (do_layout) par(oldpar, no.readonly = TRUE)
 }
+# Convenience function for switching on some features of mkinfit
+# that have not been made the default to keep compatibility
+plot_sep <- function(fit, sep_obs = TRUE, show_residuals = TRUE, show_errmin = TRUE, ...) {
+  plot.mkinfit(fit, sep_obs = TRUE, show_residuals = TRUE, 
+          show_errmin = TRUE, ...)
+}