library(JWileymisc)
sleep[1,1] <- NA
m <- nlme::lme(extra ~ group, data = sleep, random = ~ 1 | ID,
na.action = na.omit)
residualDiagnostics(m)$Residuals
m <- nlme::lme(hp ~ mpg, data = mtcars, random = ~ 1 | cyl,
na.action = na.omit)
residualDiagnostics(m)$Residuals
rm(m, sleep)
Run the code above in your browser using DataLab