R/02_algebrahelpers_weighted_geomean.R

In psychonetrics: Structural Equation Modeling and Confirmatory Network Analysis

Defines functions geomean weighted.geomean

weighted.geomean <- function(x, w, ...) exp(weighted.mean(log(x), w, ...))
geomean <- function(x, ...) exp(mean(log(x), ...))

Try the psychonetrics package in your browser