aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--DESCRIPTION2
-rw-r--r--R/checkexperiment.R4
-rw-r--r--R/checksubstance.R2
3 files changed, 4 insertions, 4 deletions
diff --git a/DESCRIPTION b/DESCRIPTION
index 9a4752e..f91eda6 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
Package: drfit
Version: 0.7.1
-Date: 2017-06-09
+Date: 2017-0712-
Title: Dose-Response Data Evaluation
Authors@R: c(person("Johannes", "Ranke", role = c("aut", "cre"),
email = "jranke@uni-bremen.de"))
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