if (FALSE) {
fit <- qbrms(y ~ x1 + x2, data = my_data, sample_prior = "yes")
# Plot all parameters
plot_parameters(fit)
# Plot specific parameters with priors
plot_parameters(fit, pars = c("x1", "x2"), show_prior = TRUE)
# Customize appearance
plot_parameters(fit, show_prior = TRUE) +
theme_bw() +
labs(title = "My Parameter Estimates")
}
if (FALSE) {
fit <- qbrms(y ~ x1 + x2, data = my_data, sample_prior = "yes")
# Plot all parameters
plot_parameters(fit)
# Plot specific parameters with priors
plot_parameters(fit, pars = c("x1", "x2"), show_prior = TRUE)
# Customize appearance
plot_parameters(fit, show_prior = TRUE) +
theme_bw() +
labs(title = "My Parameter Estimates")
}
Run the code above in your browser using DataLab