fm1 = smn.lmm(distance ~ age+Sex, data=nlme::Orthodont,
groupVar="Subject", distr="t")
plot(fm1)
plot(fm1, useweight=FALSE)
library(ggplot2)
plot(fm1) + ggtitle("t-LMM for orthodont data")
Run the code above in your browser using DataLab