From 34fddf74fbf49a96efa1cd4ce21d5b83c6fae67f Mon Sep 17 00:00:00 2001 From: Nikos Bosse <37978797+nikosbosse@users.noreply.github.com> Date: Thu, 5 Dec 2024 17:28:21 +0000 Subject: [PATCH] Update R/metrics-ordinal.R Co-authored-by: Sam Abbott --- R/metrics-ordinal.R | 1 - 1 file changed, 1 deletion(-) diff --git a/R/metrics-ordinal.R b/R/metrics-ordinal.R index dd9ee8bb..c875a94e 100644 --- a/R/metrics-ordinal.R +++ b/R/metrics-ordinal.R @@ -154,7 +154,6 @@ rps_ordinal <- function(observed, predicted, predicted_label) { correct_order <- as.numeric(predicted_label) ordered_predicted <- predicted[, correct_order] - # Use scoringRules implementation rps <- scoringRules::rps_probs(as.numeric(observed), ordered_predicted) return(rps) }