## tests
# load data
data(wgeesimdata)
family<-binomial()
r<-wgeesimdata$obs_ind
id<-wgeesimdata$id
time<-3
dat <- data.frame(y=wgeesimdata$y, wgeesimdata$x,x_mis1=wgeesimdata$x_mis[,2])
models <- list(y~x1+x2)
model_mis<-r~x_mis1
candidate.cor.sets<-c("exchangeable")
##not run
#output<-MLICwgee(models, candidate.cor.sets,data=dat,model_mis,family,r,id,time)
#output$model.selection
#output$wgee.output
Run the code above in your browser using DataLab