library(geepack)
data(ohio)
fm1 <- geeglm(resp ~ age * smoke, id = id, data = ohio,
family = binomial, corstr = "exchangeable", scale.fix = TRUE)
fm2 <- update(fm1, corstr = "ar1")
fm3 <- update(fm1, corstr = "unstructured")
model.sel(fm1, fm2, fm3, rank = QIC)
# same result:
dredge(fm1, m.min = 3, rank = QIC, varying = list(
corstr = list("exchangeable", "unstructured", "ar1")
))
Run the code above in your browser using DataLab