library(survey)
# Load example stratified systematic sample
data('library_stsys_sample', package = 'svrep')
## First, ensure data are sorted in same order as was used in sampling
library_stsys_sample <- library_stsys_sample[
order(library_stsys_sample$SAMPLING_SORT_ORDER),
]
## Create a survey design object
design_obj <- svydesign(
data = library_stsys_sample,
strata = ~ SAMPLING_STRATUM,
ids = ~ 1,
fpc = ~ STRATUM_POP_SIZE
)
## Convert to SDR replicate design
sdr_design <- as_sdr_design(
design = design_obj,
replicates = 180,
sort_variable = "SAMPLING_SORT_ORDER",
use_normal_hadamard = TRUE
)
## Compare to generalized bootstrap
## based on the SD2 estimator that SDR approximates
gen_boot_design <- as_gen_boot_design(
design = design_obj,
variance_estimator = "SD2",
replicates = 180,
exact_vcov = TRUE
)
## Estimate sampling variances
svytotal(x = ~ TOTSTAFF, na.rm = TRUE, design = sdr_design)
svytotal(x = ~ TOTSTAFF, na.rm = TRUE, design = gen_boot_design)
Run the code above in your browser using DataLab