# NOT RUN {
library(lme4)
sleep_fit <- lmer(Reaction ~ Days + (Days | Subject), sleepstudy)
vcovCR(sleep_fit, type = "CR2")
data(egsingle, package = "mlmRev")
math_model <- lmer(math ~ year * size + female + black + hispanic
+ (1 | schoolid) + (1 | childid),
data = egsingle)
vcovCR(math_model, type = "CR2")
# }
Run the code above in your browser using DataLab