# NOT RUN {
library(report)
if (require("rstanarm")) {
model <- stan_glm(Sepal.Length ~ Petal.Length * Species,
data = iris, iter = 250, refresh = 0
)
r <- report(model)
text_short(r)
text_long(r)
table_short(r)
table_long(r)
model <- stan_lmer(Sepal.Length ~ Petal.Length + (1 | Species),
data = iris, iter = 100, refresh = 0
)
report(model)
}
# }
Run the code above in your browser using DataLab