if (FALSE) {
# The sleepstudy example
lme4fit <- lmer(Reaction ~ Days + (Days|Subject), sleepstudy, REML = FALSE)
# casewise scores
estfun(lme4fit, level = 1, ranpar = "var")
# clusterwise scores
estfun(lme4fit, level = 2, ranpar = "sd")
}
Run the code above in your browser using DataLab