R/utils.R
gmean.Rd
Geometric mean
gmean(x)
Numeric vector
EDG
if (FALSE) { # \dontrun{ x <- c(1, 3, 5) mean(x) gmean(x) # same as, but a little faster than: exp(mean(log(x))) } # }