From 52bb819dac45d1d8ddfba2e88c0e476014c28774 Mon Sep 17 00:00:00 2001
From: Johannes Ranke <jranke@uni-bremen.de>
Date: Wed, 12 Jul 2017 15:56:50 +0200
Subject: Improve y axis limits

---
 R/checkexperiment.R | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

(limited to 'R/checkexperiment.R')

diff --git a/R/checkexperiment.R b/R/checkexperiment.R
index 5af237c..02ed706 100644
--- a/R/checkexperiment.R
+++ b/R/checkexperiment.R
@@ -127,7 +127,7 @@ checkexperiment <- function(id, db = "ecotox", endpoint = "%")
         boxplot(controls$response,
             names="controls",
             ylab="Response",
-            ylim=c(0, max(controls$response, na.rm = TRUE)),
+            ylim=range(controls$response, na.rm = TRUE),
             boxwex=0.4,
             main=paste("Plate ",id))
     } else {
@@ -147,7 +147,7 @@ checkexperiment <- function(id, db = "ecotox", endpoint = "%")
 
     plot(1,type="n",
         xlim = c(lld - 0.5, lhd + 2),
-        ylim = range(0, max(expdata[responsename])),
+        ylim = range(expdata[responsename], na.rm = TRUE),
         xlab = paste("decadic logarithm of the concentration in ",levels(expdata$unit)),
         ylab = responsename)
 
-- 
cgit v1.2.1