diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-07-12 15:56:50 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-07-12 15:56:50 +0200 |
| commit | 52bb819dac45d1d8ddfba2e88c0e476014c28774 (patch) | |
| tree | e3407216d9694b1b31a716e21b25cd39bb6707f9 /R/checkexperiment.R | |
| parent | 1529b559337c2c2c2384e507e04d717ff65978e8 (diff) | |
Improve y axis limits
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) |