library(survey)
# Load an example dataset
data("involvement_survey_str2s", package = "nrba")
# Create a survey design object
involvement_survey_sample <- svydesign(
data = involvement_survey_str2s,
weights = ~BASE_WEIGHT,
strata = ~SCHOOL_DISTRICT,
ids = ~ SCHOOL_ID + UNIQUE_ID,
fpc = ~ N_SCHOOLS_IN_DISTRICT + N_STUDENTS_IN_SCHOOL
)
rep_design <- as.svrepdesign(involvement_survey_sample, type = "mrbbootstrap")
# Adjust weights for nonresponse within weighting classes
nr_adjusted_design <- wt_class_adjust(
survey_design = rep_design,
status = "RESPONSE_STATUS",
status_codes = c(
"ER" = "Respondent",
"EN" = "Nonrespondent",
"IE" = "Ineligible",
"UE" = "Unknown"
),
wt_class = "PARENT_HAS_EMAIL",
type = "NR"
)
Run the code above in your browser using DataLab