# NOT RUN {
library(bayestestR)
if (require("rstanarm")) {
model <- stan_glm(mpg ~ wt + am, data = mtcars, chains = 1, refresh = 0)
check_prior(model, method = "gelman")
check_prior(model, method = "lakeland")
# An extreme example where both methods diverge:
model <- stan_glm(mpg ~ wt,
data = mtcars[1:3, ],
prior = normal(-3.3, 1, FALSE),
prior_intercept = normal(0, 1000, FALSE),
refresh = 0
)
check_prior(model, method = "gelman")
check_prior(model, method = "lakeland")
plot(si(model)) # can provide visual confirmation to the Lakeland method
}
# }
Run the code above in your browser using DataLab