# NOT RUN {
library(report)
# GLMs
report_performance(lm(Sepal.Length ~ Petal.Length * Species, data = iris))
report_performance(glm(vs ~ disp, data = mtcars, family = "binomial"))
# Mixed models
if (require("lme4")) {
model <- lme4::lmer(Sepal.Length ~ Petal.Length + (1 | Species), data = iris)
report_performance(model)
}
# Bayesian models
if (require("rstanarm")) {
model <- stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, iter = 600)
report_performance(model)
}
# Structural Equation Models (SEM)
if (require("lavaan")) {
structure <- " ind60 =~ x1 + x2 + x3
dem60 =~ y1 + y2 + y3
dem60 ~ ind60 "
model <- lavaan::sem(structure, data = PoliticalDemocracy)
report_performance(model)
}
# }
Run the code above in your browser using DataLab