# NOT RUN {
data("cluster_sample")
data("psu_ssu")
## Calibrated two-stage cluster design
cs <- cluster_sample[ , c("interview_id",
"census_tract_id",
"number_of_persons",
"number_of_dogs",
"number_of_cats")]
design <- DesignSurvey(na.omit(cs),
psu.ssu = psu_ssu,
psu.col = "census_tract_id",
ssu.col = "interview_id",
cal.col = "number_of_persons",
cal.N = 129445)
SummarySurvey(design, c("total", "total", "total"))
# }
Run the code above in your browser using DataLab