R/mittelwerte.R

In DavidBarke/Stat1-Functions: Stat1 at TU Berlin

Defines functions geometric_mean harmonic_mean

Documented in geometric_mean harmonic_mean

#' Further means
#'
#' @param x A numeric vector.
#'
#' @name means
NULL

#' @rdname means
#'
#' @export
harmonic_mean <- function(x) {
  if (any(x == 0)) return(0)
  1 / mean(1 / x)
}

#' @rdname means
#'
#' @export
geometric_mean <- function(x) {
  prod(x) ^ (1 / length(x))
}