Last chance! 50% off unlimited learning
Sale ends in
# NOT RUN {
data(api)
dstrat<-svydesign(id=~1,strata=~stype, weights=~pw, data=apistrat,
fpc=~fpc)
dstrat<-update(dstrat, apidiff=api00-api99)
svymean(~api99+api00+apidiff, dstrat)
# }
Run the code above in your browser using DataLab