# \donttest{
set.seed(2022)
# Create an example bootstrap survey design object ----
data('api', package = 'survey')
boot_design <- svydesign(id=~1,strata=~stype, weights=~pw,
data=apistrat, fpc=~fpc) |>
as_bootstrap_design(replicates = 5000)
# Calculate estimates of interest and retain estimates from each replicate ----
estimated_means_and_proportions <- svymean(
x = ~ api00 + api99 + stype,
design = boot_design,
return.replicates = TRUE
)
custom_statistic <- withReplicates(
design = boot_design,
return.replicates = TRUE,
theta = function(wts, data) {
numerator <- sum(data$api00 * wts)
denominator <- sum(data$api99 * wts)
statistic <- numerator/denominator
return(statistic)
}
)
# Estimate simulation CV of bootstrap estimates ----
estimate_boot_sim_cv(
svrepstat = estimated_means_and_proportions
)
estimate_boot_sim_cv(
svrepstat = custom_statistic
)
# }
Run the code above in your browser using DataLab