R/w.ad.R
In Weighted.Desc.Stat: Weighted Descriptive Statistics

w.ad <-
function(x, mu)  sum( mu*abs(x-w.mean(x,mu)) ) / sum(mu)

Any scripts or data that you put into this service are public.

Weighted.Desc.Stat documentation built on May 1, 2019, 7:06 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the Weighted.Desc.Stat package in your browser