gss_cc <- gss_2024[
stats::complete.cases(gss_2024[, c("age", "sex", "educ")]),
]
gss_design <- as_survey(
gss_cc, ids = vpsu, weights = wtssps,
strata = vstrat, nest = TRUE
)
# Single fit
fit <- survey_glm(gss_design, age ~ sex + educ)
get_anova(fit)
# Design + formula (fits internally)
get_anova(gss_design, age ~ sex + educ)
# List of fits (chained pairwise comparison)
fit_s <- survey_glm(gss_design, age ~ sex)
fit_b <- survey_glm(gss_design, age ~ sex + educ)
get_anova(list(fit_s, fit_b))
Run the code above in your browser using DataLab