# NOT RUN {
library(psycho)
require(rstanarm)
fit <- rstanarm::stan_glm(vs ~ mpg * cyl, data=mtcars)
results <- analyze(fit)
summary(results)
data <- normalize(attitude)
fit <- rstanarm::stan_lm(rating ~ advance + privileges + learning + raises,
data=data, prior=R2(1))
results <- analyze(fit)
summary(results)
plot(results)
print(results)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab