# NOT RUN {
data(psu_ssu)
## Two-stage cluster sampling
selected_psu <- SamplePPS(psu.ssu = psu_ssu, psu = 10)
# Take a systematic sampling of 5 SSU within each selected PSU.
SampleSystematic(selected_psu, 5, write = FALSE)
## Simple systematic sampling
SampleSystematic(su = 5, N = 100)
## Stratified systematic sampling
SampleSystematic(su = c("urban" = 50, "rural" = 10),
N = c("urban" = 4000, "rural" = 150))
# }
Run the code above in your browser using DataLab