if (FALSE) {
model <- cnorm.betabinomial(ppvt$age, ppvt$raw)
diag_info <- diagnostics.betabinomial(model)
print(diag_info)
summary(diag_info)
if(diag_info$converged) {
cat("Model converged successfully.\n")
} else {
cat("Warning: Model did not converge.\n")
}
cat("AIC:", diag_info$AIC, "\n")
cat("BIC:", diag_info$BIC, "\n")
}
Run the code above in your browser using DataLab