library(JWileymisc)
data(aces_daily, package = "JWileymisc")
m1 <- lme4::lmer(PosAff ~ STRESS + (1 + STRESS | UserID),
data = aces_daily)
m2 <- lme4::lmer(PosAff ~ STRESS + (1 | UserID),
data = aces_daily)
m3 <- lme4::lmer(PosAff ~ STRESS + Female + (1 | UserID),
data = aces_daily)
modelCompare(m1, m2)
modelCompare(m2, m3)
rm(m1, m2, m3)
Run the code above in your browser using DataLab