R/deffK.R

In PracTools: Tools for Designing and Weighting Survey Samples

Defines functions deffK

Documented in deffK

deffK <- function(w){
    if (any(w <= 0))
        warning("Some weights are less than or equal to 0.\n")
    n <- length(w)
    1 + sum((w - mean(w))^2)/n/mean(w)^2
}

Try the PracTools package in your browser