From 2218c64869a37927b793b88da77c4c90c9307535 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 6 Sep 2017 13:42:48 +0200
Subject: Use full fitted curve(s) for y axis scaling ...

... when using plot_sep() or plot.mkinfit(..., sep_obs = TRUE)
---
 R/plot.mkinfit.R | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

(limited to 'R/plot.mkinfit.R')

diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index baa88069..ee836eb8 100644
--- a/R/plot.mkinfit.R
+++ b/R/plot.mkinfit.R
@@ -105,8 +105,7 @@ plot.mkinfit <- function(x, fit = x,
     # Set ylim to sensible default, or to the specified value
     if (ylim[[1]] == "default") {
       ylim_row = c(0, max(c(subset(fit$data, variable %in% row_obs_vars)$observed,
-                        subset(fit$data, variable %in% row_obs_vars)$fitted),
-                      na.rm = TRUE))
+                          unlist(out[row_obs_vars])), na.rm = TRUE))
     } else {
       ylim_row = ylim
     }
-- 
cgit v1.2.1