#'@title Geometric mean
#'
#'@description get a geometric mean
#'@param x is a numeric value, could be a a vector or data.frame
#'@export g_mean
#'@keywords g_mean
#'@return a geometric mean
#'@export g_mean
#'@examples
#'x<-rnorm(25,2,3)
#'g_mean(x)
#'
g_mean<-function (x)
{
if (is.null(nrow(x))) {
exp(mean(log(x), na.rm = TRUE))
}
else {
exp(apply(log(x), 2, mean, na.rm = na.rm))
}
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.