From 1717d4aa789e1981fd529e6dc7b327dc8cb8bb2a Mon Sep 17 00:00:00 2001 From: Johannes Ranke Date: Tue, 18 Jul 2017 17:06:58 +0200 Subject: Fixed the formula for the control growth rate --- R/checkexperiment.R | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) (limited to 'R') 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") } -- cgit v1.2.1