if (require(rstanarm)) {
fit <- stan_glmer(mpg ~ wt + (1|cyl) + (1+wt|gear), data = mtcars,
iter = 500, chains = 2)
tidy(fit, intervals = TRUE, prob = 0.5)
tidy(fit, parameters = "hierarchical")
tidy(fit, parameters = "varying")
glance(fit, looic = TRUE, cores = 1)
}
Run the code above in your browser using DataCamp Workspace