fm1 = smn.lmm(nlme::Orthodont, formFixed=distance ~ age+Sex, groupVar="Subject")
fm2 = smsn.lmm(nlme::Orthodont, formFixed=distance ~ age+Sex, groupVar="Subject",
control=lmmControl(tol=.0001))
lr.test(fm1, fm2)
Run the code above in your browser using DataLab