## Not run:
# fm1 <- lmer(Yield ~ (1|Batch), Dyestuff)
# fm2 <- rlmer(Yield ~ (1|Batch), Dyestuff)
# compare(fm1, fm2)
# require(xtable)
# xtable(compare(fm1, fm2))
# str(getInfo(fm1))
# ## End(Not run)
Run the code above in your browser using DataLab