diff --git a/R/log_transform.R b/R/log_transform.R
index d44464b..84ccad9 100644
--- 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,