R/Rgmean.R

Defines functions gmean_n gmean

gmean <- function(x) {
    nvalues <- length(x)
    res1 <- prod(x)
    res <- res1^(1/nvalues)
    return(res)
}

gmean_n <- function(...) {
    x <- unlist(c(...))
    return(gmean(x))
}
EccRiley/Riley documentation built on Feb. 15, 2024, 9:29 a.m.