R/geom_mean.R

geom_mean <- function (x, na.rm = TRUE) {
    ans <- exp(mean(log(x), na.rm = TRUE))
    ans
}

Try the drLumi package in your browser

Any scripts or data that you put into this service are public.

drLumi documentation built on May 2, 2019, 2:45 p.m.