# NOT RUN {
library(report)
# Mixed models
if (require("lme4")) {
model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris)
r <- report_random(model)
r
summary(r)
}
# }
# NOT RUN {
# Bayesian models
if (require("rstanarm")) {
model <- stan_lmer(mpg ~ disp + (1 | cyl), data = mtcars, refresh = 0, iter = 1000)
r <- report_random(model)
r
summary(r)
}
# }
# NOT RUN {
if (require("brms")) {
model <- brm(mpg ~ disp + (1 | cyl), data = mtcars, refresh = 0, iter = 1000)
r <- report_random(model)
r
summary(r)
}
# }
Run the code above in your browser using DataLab