# Example for a successfully evaluated model
successful_results <- list(
evaluation_metrics = list(
Threshold_Strategy = "f1",
`_Threshold` = 0.45,
AUROC = 0.85, AUROC_95CI_Lower = 0.75, AUROC_95CI_Upper = 0.95,
AUPRC = 0.80, Accuracy = 0.82, F1 = 0.78,
Precision = 0.79, Recall = 0.77, Specificity = 0.85
)
)
print_model_summary_dia("MyAwesomeModel", successful_results)
# Example for a failed model
failed_results <- list(evaluation_metrics = list(error = "Training failed"))
print_model_summary_dia("MyFailedModel", failed_results)
Run the code above in your browser using DataLab