# NOT RUN {
library(psycho)
library(rstanarm)
fit <- rstanarm::stan_glm(Sepal.Length ~ Sepal.Width * Species, data = iris)
fit <- rstanarm::stan_glm(Sepal.Length ~ Sepal.Width * Species, data = standardize(iris))
posteriors <- standardize(fit)
posteriors <- standardize(fit, method = "posterior")
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab