## Not run:
# fit.overall.rnd <- ocmm(overall ~ cycleno + age + bsa + treatment + (1|randno), data=ANZ0001)
# fit.phys.rnd <- ocmm(phys ~ cycleno + age + bsa + treatment + (1|randno), data=ANZ0001)
# fit.pain.rnd <- ocmm(pain ~ cycleno + age + bsa + treatment + (1|randno), data=ANZ0001)
# fit.mood.rnd <- ocmm(mood ~ cycleno + age + bsa + treatment + (1|randno), data=ANZ0001)
# fit.nausvom.rnd <- ocmm(nausvom ~ cycleno + age + bsa + treatment + (1|randno), data=ANZ0001)
# fit.appetite.rnd <- ocmm(appetite ~ cycleno + age + bsa + treatment + (1|randno), data=ANZ0001)
# summary(fit.overall.rnd)
# summary(fit.phys.rnd)
# summary(fit.pain.rnd)
# summary(fit.mood.rnd)
# summary(fit.nausvom.rnd)
# summary(fit.appetite.rnd)
# ## End(Not run)
Run the code above in your browser using DataLab