## tests
# load data
data(geesimdata)
id<-geesimdata$id
r<-rep(1,length(id))
time<-3
dat <- data.frame(y=geesimdata$y, geesimdata$x,id=id)
models <- list(y~x1+x2)
candidate.cor.sets<-c("exchangeable")
family<-poisson()
output<-ELCICgee(models, candidate.cor.sets,data=dat,family,r,id,time)
output$model.selection
output$gee.output
Run the code above in your browser using DataLab