#143 Fix bug

epiverse-trace · Aug 14, 2024 · 67c3862 · 67c3862
1 parent 6e73bd5
commit 67c3862
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/utils.R b/R/utils.R
@@ -309,7 +309,7 @@ geometric_sd <- function(x, method = c(
 
   if (method == "positive") {
     stopifnot("`x` includes zero or negative values,
-              check the geom_mean methods" = any(x <= 0))
+              check the geom_mean methods" = any(x > 0))
     gsd <- stats::sd((log(x)))
   } else if (method == "shifted") {
     x_shifted <- x + shift