diff options
Diffstat (limited to 'R/checkexperiment.R')
| -rw-r--r-- | R/checkexperiment.R | 4 |
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) |