#88 fix: ensure log_transform also calculates SE and not SD

egouldo · Aug 23, 2024 · ea032bc · ea032bc
1 parent fe6ee93
commit ea032bc
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/log_transform.R b/R/log_transform.R
@@ -19,7 +19,7 @@ log_transform <- function(estimate = numeric(1L),
     na.omit()
 
   m_est <- mean(log_simulated)
-  std.error_est <- sd(log_simulated)
+  std.error_est <- sd(log_simulated) / sqrt(length(log_simulated))
   quantiles <- quantile(log_simulated, c(0.025, 0.975), na.rm = TRUE)
 
   out <- data.frame(mean_log = m_est,