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/checksubstance.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'R/checksubstance.R')

diff --git a/R/checksubstance.R b/R/checksubstance.R
index 06cc635..f22d4e2 100644
--- a/R/checksubstance.R
+++ b/R/checksubstance.R
@@ -70,7 +70,7 @@ checksubstance <- function(substance, db = "cytotox", experimentator = "%",
 
     plot(log10(data$conc),data[[responsename]],
         xlim=c(-2.5, 4.5),
-        ylim= c(-0.1, 2),
+        ylim= range(data[[responsename]], na.rm = TRUE),
         xlab=paste("decadic logarithm of the concentration in ",levels(data$unit)),
         ylab=responsename)
 
-- 
cgit v1.2.1