R/w.var.R

w.var <-
function(x, mu)  (sum(mu*x*x)/sum(mu)) - w.mean(x,mu)^2

Try the Weighted.Desc.Stat package in your browser

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.