if (FALSE) { # rlang::is_installed("geepack")
# load modeling library
library(geepack)
# load data
data(state)
ds <- data.frame(state.region, state.x77)
# fit model
geefit <- geeglm(Income ~ Frost + Murder,
id = state.region,
data = ds, family = gaussian,
corstr = "exchangeable"
)
# summarize model fit with tidiers
tidy(geefit)
tidy(geefit, conf.int = TRUE)
}
Run the code above in your browser using DataLab