# \donttest{
# # Create a sample prediction data frame
# predictions_df <- data.frame(
# sample = 1:10,
# label = c(1, 0, 1, 1, 0, 0, 1, 0, 1, 0),
# score = c(0.9, 0.2, 0.8, 0.6, 0.3, 0.4, 0.95, 0.1, 0.7, 0.5)
# )
#
# # Evaluate the predictions using the 'f1' threshold strategy
# evaluation_results <- evaluate_predictions_dia(
# prediction_df = predictions_df,
# threshold_choices = "f1"
# )
#
# print(evaluation_results)
# }
Run the code above in your browser using DataLab