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.