R/generaldesigneffect.R

generaldesigneffect <-
function(weightvec) {
    weightvec <- weightvec[!is.na(weightvec)] * sum(!is.na(weightvec))/sum(weightvec[!is.na(weightvec)])
    deff <- sum(weightvec^2)/sum(weightvec)
    deff
}

Try the anesrake package in your browser

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

anesrake documentation built on May 2, 2019, 1:42 p.m.