diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-09-06 13:42:48 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-09-06 13:42:48 +0200 |
| commit | 2218c64869a37927b793b88da77c4c90c9307535 (patch) | |
| tree | ea3f4f4978f50e5038b2769981dc8a1de00f8541 | |
| parent | a0e8a2d064eb1d40927cee67676e0a888ace8798 (diff) | |
Use full fitted curve(s) for y axis scaling ...
... when using plot_sep() or plot.mkinfit(..., sep_obs = TRUE)
| -rw-r--r-- | R/plot.mkinfit.R | 3 |
1 files changed, 1 insertions, 2 deletions
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 } |