Calculate the weighted harmonic mean

Usage

weight.harm.mean(x, weights = NULL, na.rm = FALSE, ...)

Arguments

x

an object containing a set of observations whose weighted harmonic mean is to be computed

weights

a numerical vector of weights the same length as x

na.rm

logical by default set to FALSE. To remove NAs set argument to TRUE

...

additional arguments passed to or from other methods

Value

a numeric vector or length equal or greater than 1L

Examples

d <- rlnorm(60,1,1.4)
w <- rlnorm(60,2,3.23)
weight.harm.mean(d,w)
#> [1] 2.093143

x <- matrix(rlnorm(60,1,1.4), ncol = 4)
w <- matrix(rlnorm(60,1,1), ncol = 4)
mapply(weight.harm.mean, as.data.frame(x),as.data.frame(w))
#>        V1        V2        V3        V4 
#> 0.6187375 0.9686720 1.0740613 1.0661302