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