## tests
# load data
data(geesimdata)
x<-geesimdata$x
y<-geesimdata$y
id<-geesimdata$id
r<-rep(1,nrow(x))
time<-3
corstr<-"exchangeable"
dist<-"poisson"
criteria<-ELCIC.gee.single(x=x,y=y,r=r,id=id,time=time,index.var=c(1,2,3),
name.var=NULL,dist=dist,corstr=corstr)
criteria
Run the code above in your browser using DataLab