# lmer example
fit <- lme4::lmer(mathach ~ 1 + ses + catholic + (1|id),
data=hsb, REML=TRUE)
boot_se(fit)
# \donttest{
# run time > 10s
# glmer example: logistic
# Create binary outcome
hsb$binary_math <- ifelse(hsb$mathach <= 13, 0, 1)
fitb <- lme4::glmer(binary_math ~ 1 + ses + catholic + (1|id),
data=hsb, family = binomial(link="logit"))
boot_se(fitb)
# }
Run the code above in your browser using DataLab