data('api', package = 'survey')
api_design <- svydesign(
data = apistrat,
id = ~ 1,
strata = ~ stype,
weights = ~ pw,
nest = TRUE
)
jk_design <- api_design |>
as_random_group_jackknife_design(
replicates = 12
)
jk_design |>
get_rep_scale_coefs('overall')
jk_design |>
get_rep_scale_coefs('specific')
jk_design |>
get_rep_scale_coefs('combined')
Run the code above in your browser using DataLab