library(JWileymisc)
data(aces_daily, package = "JWileymisc")
m1 <- lme4::lmer(PosAff ~ STRESS + (1 + STRESS | UserID),
data = aces_daily)
R2(m1)
R2(m1, cluster = TRUE)
hist(R2(m1, cluster = TRUE)$R2)
rm(m1)
Run the code above in your browser using DataLab