R/weighted.var.R

weighted.var <- function(x, w, wxbar) {
    sum.w <- sum(w)
    sum.w2 <- sum(w^2)
    return( (sum.w / (sum.w^2 - sum.w2)) * sum(w * (x - wxbar)^2) )
}

Try the touchard package in your browser

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

touchard documentation built on May 31, 2019, 5:04 p.m.