library(JWileymisc)
sleep[1,1] <- NA
m <- lme4::lmer(extra ~ group + (1 | ID), data = sleep)
md <- modelDiagnostics(m, ev.perc = .1)
md$extremeValues
class(md)
plot(md)
data(aces_daily, package = "JWileymisc")
m <- lme4::lmer(PosAff ~ STRESS + (1 + STRESS | UserID), data = aces_daily)
md <- modelDiagnostics(m, ev.perc = .1)
# gm1 <- lme4::glmer(cbind(incidence, size - incidence) ~ period + (1 | herd),
# data = lme4::cbpp, family = binomial)
# modelDiagnostics(gm1) ## should be an error
rm(m, md, sleep)
Run the code above in your browser using DataLab