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

w.kurtosis <-
function(x, mu)  (( sum( mu*(x-w.mean(x,mu))^4 ) / sum(mu) ) / w.sd(x,mu)^4)-3

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