data(api)
dstrat <- svydesign(id = ~1, strata = ~stype, weights = ~pw, data = apistrat,
fpc = ~fpc)
svyhist(~ell, dstrat, main="English language learners",col="peachpuff")
svyboxplot(enroll~stype,dstrat)
svyboxplot(enroll~1,dstrat)
Run the code above in your browser using DataLab