# NOT RUN {
format_table(head(iris), digits = 1)
if (require("parameters")) {
x <- model_parameters(lm(Sepal.Length ~ Species * Sepal.Width, data = iris))
as.data.frame(format_table(x))
as.data.frame(format_table(x, p_digits = "scientific"))
}
# }
# NOT RUN {
if (require("rstanarm", warn.conflicts = FALSE) &&
require("parameters", , warn.conflicts = FALSE)) {
model <- stan_glm(Sepal.Length ~ Species, data = iris, refresh = 0, seed = 123)
x <- model_parameters(model, ci = c(0.69, 0.89, 0.95))
as.data.frame(format_table(x))
}
# }
Run the code above in your browser using DataLab