R/geomean.R

Defines functions geomean

geomean <- function(x, na.rm = TRUE) {
  exp(sum(log(x[x > 0]), na.rm = na.rm) / length(x))
}
BWAM/wqs documentation built on March 24, 2020, 5:26 p.m.