data('scd', package = 'survey')
scd_design <- svydesign(
data = scd,
id = ~ ambulance,
prob = ~ 1,
strata = ~ ESA,
nest = TRUE
)
scd_design |>
as_bootstrap_design(replicates = 5) |>
get_rep_type()
scd_design |>
as_fays_gen_rep_design(
variance_estimator = "Ultimate Cluster"
) |>
get_rep_type()
Run the code above in your browser using DataLab