R/geom_mean.R

In atsyplenkov/atslib: Personal R package of Anatoly Tsyplenkov

Defines functions gmean

Documented in gmean

#' Compute geometric mean/average
#'
#' @param x vector
#'
#' @return double
#' @export
#'
gmean <- function(x){

  x_na <- x[!base::is.na(x)]

  10^base::mean(base::log10(x_na))

}