# NOT RUN {
library(parameters)
x <- model_parameters(lm(Sepal.Length ~ Species * Sepal.Width, data = iris))
as.data.frame(parameters_table(x))
as.data.frame(parameters_table(x, p_digits = "scientific"))
# }
# NOT RUN {
if (require("rstanarm")) {
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(parameters_table(x))
}
# }
Run the code above in your browser using DataLab