if (FALSE) {
# Fit a model
fit <- qbrms(mpg ~ hp + wt, data = mtcars, family = gaussian())
# Run diagnostics
diag <- diagnose_model(fit)
# View summary
print(diag)
# View specific recommendations
diag$recommendations
# Create diagnostic plots
plot(diag)
}
Run the code above in your browser using DataLab