# Load data with PSU identifiers and sizes.
data(psu.ssu)
# Take a sample of 10 PSU, with probability
# proportional to size and with replacement.
selected.psu <- SamplePPS(psu.ssu, 10, write = FALSE)
# Take a sistematic sampling of 5 SSU within each
# PSU of selected.psu.
(selected.ssu <- SampleSystematic(selected.psu, 5, write = FALSE))
# Simple systematic sampling
(simp.syst.sampling <- SampleSystematic(ssu = 5, total = 100))Run the code above in your browser using DataLab