# Load data with psu identifiers and sizes.
data(psu.ssu)
# Load data from a pilot sample.
data(pilot)
# Calculate sample size and composition.
(sample.sc <- Calculate2StageSampleSize(psu.ssu, pilot, conf.level = 0.95, error = 0.1, cost = 4))
Run the code above in your browser using DataLab