# NOT RUN {
<!-- % takes too long for routine R CMD check -->
orthSim <-
simulate.lme(list(fixed = distance ~ age, data = Orthodont,
random = ~ 1 | Subject), nsim = 200,
m2 = list(random = ~ age | Subject))
# }
# NOT RUN {
<!-- % dont ==> check in ../tests/predict.lme.R -->
# }
Run the code above in your browser using DataLab