# NOT RUN {
data(city)
data(hh)
## Two-stage cluster design that included 65 PSU.
data(cluster_sample)
cluster_sample2 <- cluster_sample[complete.cases(cluster_sample), c(1:2, 8:10)]
design <- DesignSurvey(sample = cluster_sample2,
psu.ssu = city[, c("track_id", "hh")],
psu.col = "track_id", ssu.col = "hh_id", psu.2cd = 65,
cal.col = "persons", cal.N = sum(hh$persons))
vars <- rep("total", 3)
cbind(names(design$variables), vars)
SummarySurvey(design = design, variables = vars)
## Systematic sampling
data(sys_sample)
sys_sample2 <- sys_sample[complete.cases(sys_sample), 7:9]
design <- DesignSurvey(sample = sys_sample2, N = sum(city$hh),
cal.col = "persons", cal.N = sum(hh$persons))
vars <- rep("total", 3)
cbind(names(design$variables), vars)
#SummarySurvey(design = design, variables = vars)
# }
Run the code above in your browser using DataLab