aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--DESCRIPTION2
-rw-r--r--R/checkexperiment.R2
2 files changed, 2 insertions, 2 deletions
diff --git a/DESCRIPTION b/DESCRIPTION
index f91eda6..18364b6 100644
--- a/DESCRIPTION
+++ b/DESCRIPTION
@@ -1,6 +1,6 @@
Package: drfit
Version: 0.7.1
-Date: 2017-0712-
+Date: 2017-07-18
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 58868da..2806317 100644
--- a/R/checkexperiment.R
+++ b/R/checkexperiment.R
@@ -140,7 +140,7 @@ checkexperiment <- function(id, db = "ecotox", endpoint = "%")
response_0 <- unique(expdata$raw_0)
if (length(response_0) > 1) stop("More than one mean response at time 0 in the data")
t_days <- duration / 24
- control_growth_rates <- log(controls$response) - log(response_0) / t_days
+ control_growth_rates <- (log(controls$response) - log(response_0)) / t_days
cat("\nMean growth rate in controls:\t", round(mean(control_growth_rates), 3), "per day\n")
}

Contact - Imprint