# NOT RUN {
library(psycho)
library(rstanarm)
fit <- rstanarm::stan_glm(rating ~ advance, data = attitude)
posterior <- psycho::analyze(fit)$values$effects$advance$posterior
mpe <- psycho::mpe(posterior)
print(mpe$MPE)
print(mpe$values)
# }
Run the code above in your browser using DataLab