# \donttest{
data(datrand)
fit1 <- mm(Y~time*binary, t.formula=~1, data=datrand, id=id, step.max=4, verbose=FALSE)
fit2 <- mm(Y~time*binary, t.formula=~1, lv.formula =~1, data=datrand,
id=id, step.max=4, verbose=FALSE)
anova(fit1,fit2)# }
Run the code above in your browser using DataLab