R/g_mean.R

In osoramirez/resumeR: The Most Complete Summary Statistic Ever!

#'@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))
  }
}