From 0d5d645b842c1a102d27161bb0bc758ac7a9de9e Mon Sep 17 00:00:00 2001
From: ranke <ranke@d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc>
Date: Wed, 29 Mar 2006 05:05:22 +0000
Subject: - Added an error message for drplot - Recalculated the XY data, so
 the response data is now calculated   based on growth rates instead of simple
 frond numbers - Reduced the number of columns in the IM1xVibrio data

git-svn-id: http://kriemhild.uft.uni-bremen.de/svn/drfit@59 d1b72e20-2ee0-0310-a1c4-ad5adbbefcdc
---
 R/drfit.R | 5 +++++
 1 file changed, 5 insertions(+)

(limited to 'R')

diff --git a/R/drfit.R b/R/drfit.R
index 4d93a6d..f3262bd 100644
--- a/R/drfit.R
+++ b/R/drfit.R
@@ -330,6 +330,11 @@ drplot <- function(drresults, data,
                 cat("will not be displayed\n")
                 ctype = "none"
             }
+        } else {
+            if (ctype != "none") {
+                stop("There are no controls in the dataset, and therefore ",
+                    "their scatter cannot be displayed\n")
+            }
         }
         lld <- log10(min(nonzerodata$dose))
         lhd <- log10(max(nonzerodata$dose))
-- 
cgit v1.2.1