aboutsummaryrefslogtreecommitdiff
path: root/R/checkexperiment.R
diff options
context:
space:
mode:
authorJohannes Ranke <jranke@uni-bremen.de>2017-07-12 15:56:50 +0200
committerJohannes Ranke <jranke@uni-bremen.de>2017-07-12 15:56:50 +0200
commit52bb819dac45d1d8ddfba2e88c0e476014c28774 (patch)
treee3407216d9694b1b31a716e21b25cd39bb6707f9 /R/checkexperiment.R
parent1529b559337c2c2c2384e507e04d717ff65978e8 (diff)
Improve y axis limits
Diffstat (limited to 'R/checkexperiment.R')
-rw-r--r--R/checkexperiment.R4
1 files changed, 2 insertions, 2 deletions
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)

Contact - Imprint