diff options
| author | Johannes Ranke <jranke@uni-bremen.de> | 2017-07-18 17:06:58 +0200 |
|---|---|---|
| committer | Johannes Ranke <jranke@uni-bremen.de> | 2017-07-18 17:06:58 +0200 |
| commit | 1717d4aa789e1981fd529e6dc7b327dc8cb8bb2a (patch) | |
| tree | 0f60bd3575567aa64e51a459d48583d2b27bd209 | |
| parent | abebba715cf2a317acc04cc0d229c2a605a005a2 (diff) | |
Fixed the formula for the control growth rate
| -rw-r--r-- | DESCRIPTION | 2 | ||||
| -rw-r--r-- | R/checkexperiment.R | 2 |
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") } |