## Not run:
# #Compare the time for displaying this modest model
# require(arm)
# m1 <- lmer(y ~ lectage + studage + (1|d) + (1|s), data=InstEval)
# system.time(display(m1))
# system.time(fastdisp(m1))
# ## End(Not run)
Run the code above in your browser using DataLab