if (FALSE) { # rlang::is_installed("survey") && rlang::is_installed("MASS")
library(broom)
library(survey)
data(api)
dclus1 <- svydesign(id = ~dnum, weights = ~pw, data = apiclus1, fpc = ~fpc)
dclus1 <- update(dclus1, mealcat = cut(meals, c(0, 25, 50, 75, 100)))
m <- svyolr(mealcat ~ avg.ed + mobility + stype, design = dclus1)
m
tidy(m, conf.int = TRUE)
}
Run the code above in your browser using DataLab