y_true_ex <- factor(c("Negative", "Positive", "Positive", "Negative", "Positive"),
levels = c("Negative", "Positive"))
prob_ex <- c(0.1, 0.8, 0.6, 0.3, 0.9)
metrics <- calculate_metrics_at_threshold_dia(
prob_positive = prob_ex,
y_true = y_true_ex,
threshold = 0.5,
pos_class = "Positive",
neg_class = "Negative"
)
print(metrics)
Run the code above in your browser using DataLab