aboutsummaryrefslogblamecommitdiff
path: root/R/geometric_mean.R
blob: 646732cd39cabac3ea20d2946d546d3c715e266c (plain) (tree)
1
2
3
4


                                            
geometric_mean <- function(x, na.rm = FALSE)
{
  exp(mean(log(x), na.rm = na.rm))
}

Contact - Imprint