aboutsummaryrefslogtreecommitdiff
path: root/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
parent1529b559337c2c2c2384e507e04d717ff65978e8 (diff)
Improve y axis limits
Diffstat (limited to 'R')
-rw-r--r--R/checkexperiment.R4
-rw-r--r--R/checksubstance.R2
2 files changed, 3 insertions, 3 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)
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)

Contact - Imprint