data(sleepstudy, package = "lme4")
m <- lme4::lmer(Reaction ~ Days + (1 | Subject), data = sleepstudy)
find_algorithm(m)
if (FALSE) { # require("rstanarm") && require("lme4")
# \donttest{
data(sleepstudy, package = "lme4")
m <- suppressWarnings(rstanarm::stan_lmer(
Reaction ~ Days + (1 | Subject),
data = sleepstudy,
refresh = 0
))
find_algorithm(m)
# }
}
Run the code above in your browser using DataLab