gmean <- function(x) {
nvalues <- length(x)
res1 <- prod(x)
res <- res1^(1/nvalues)
return(res)
}
gmean_n <- function(...) {
x <- unlist(c(...))
return(gmean(x))
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.