if (requireNamespace("survey", quietly = TRUE) &&
requireNamespace("srvyr", quietly = TRUE)) {
ts <- srvyr::as_survey(
survey::svydesign(ids = ~sdmvpsu, weights = ~wtint2yr,
strata = ~sdmvstra, data = nhanes_2017, nest = TRUE)
)
d <- from_tbl_svy(ts)
}
Run the code above in your browser using DataLab