From 2dc4f2f87048c28252992fe70055e0d7652a61ef Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Fri, 29 Aug 2014 12:33:26 +0200
Subject: Avoid an unnecessary warning

---
 R/plot.mkinfit.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R')

diff --git a/R/plot.mkinfit.R b/R/plot.mkinfit.R
index 4132d96c..31746fb8 100644
--- a/R/plot.mkinfit.R
+++ b/R/plot.mkinfit.R
@@ -31,7 +31,7 @@ plot.mkinfit <- function(x, fit = x,
 {
   if (add && show_residuals) stop("If adding to an existing plot we can not show residuals")
 
-  if (ylim == "default") {
+  if (ylim[[1]] == "default") {
     ylim = c(0, max(subset(fit$data, variable %in% obs_vars)$observed, na.rm = TRUE))
   }
 
-- 
cgit v1.2.1