# NOT RUN {
library(geepack)
data(dietox)
dietox$Cu <- as.factor(dietox$Cu)
gee.uni <- geeUni("Weight", c("Time", "Cu"), data = dietox, id.vec = dietox$Pig,
family = "gaussian", cor.type = "exchangeable")
gee.exp <- geeExp(gee.uni, "binomial", 2)
# }
Run the code above in your browser using DataLab