## tests
# load data
data(wgeesimdata)
dist<-"binomial"
x<-wgeesimdata$x
y<-wgeesimdata$y
x_mis<-wgeesimdata$x_mis
r<-wgeesimdata$obs_ind
id<-wgeesimdata$id
time<-3
candidate.sets<-list(c(1,2,3))
candidate.cor.sets<-c("exchangeable")
criterion.elcic<-ELCIC.wgee(x,y,x_mis,r,id,time,candidate.sets,name.var.sets=NULL,
dist,candidate.cor.sets,joints=TRUE)
criterion.elcic
Run the code above in your browser using DataLab