fix geom mean again

mpc-bioinformatics · Jan 5, 2024 · da0f899 · da0f899
1 parent 3494460
commit da0f899
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/helpers-small_helper_functions.R b/R/helpers-small_helper_functions.R
@@ -13,7 +13,7 @@ geom_mean <- function(x,useprod = FALSE) {
   if (useprod) {
   return(prod(x)^(1/n))
   } else {
-    return(exp(mean(log(x))/n))
+    return(exp(mean(log(x))))
   }
 }