R/wmean.R

wmean <-
function (x, weights = rep(1, length(x))) 
{
    return(sum(x * weights)/sum(weights))
}
Auburngrads/SMRD documentation built on Sept. 14, 2020, 2:21 a.m.