# NOT RUN {
dat <- lme4::sleepstudy
# Fit a random intercept model
fit <- lme4::lmer(Reaction ~ Days + (1|Subject), data = lme4::sleepstudy)
# What is the probability that a new reaction time will be less
# than 300? (given the random effects).
add_probs(dat, fit, q = 300)
# As above, but using a different method.
add_probs(dat, fit, q = 300, type = "sim")
# What is the probability that a new reaction time will be greater
# than 300? (ignoring the random effects).
add_probs(dat, fit, q = 300, type = "parametric", includeRanef = FALSE, comparison = ">")
# }
Run the code above in your browser using DataLab