library(mmmgee) data(datasim) mod1<-geem2(Y.lin∼gr.lang+x1,id=id,data=datasim,       family="gaussian",corstr="exchangeable") mod2<-geem2(Y.poi∼gr.lang+x2,id=id,data=datasim,       family="poisson",corstr="exchangeable") mod3<-geem2(Y.bin∼gr.lang+x3,id=id,data=datasim,       family="binomial",corstr="exchangeable") Li<-matrix(c(0,1,0),nrow=1) mmmgee.test(list(mod1,mod2,mod3),L=list(Li,Li,Li),       statistic="Wald",type="maximum",biascorr=TRUE,       asymptotic=FALSE,closed.test=TRUE)