Update R/metrics-nominal.R

nikosbosse · seabbs · web-flow · commit 70d7054946a8 · 2025-04-09T15:28:23.000+02:00
Co-authored-by: Sam Abbott &lt;contact@samabbott.co.uk&gt;
diff --git a/R/metrics-nominal.R b/R/metrics-nominal.R
@@ -73,7 +73,7 @@ assert_input_categorical <- function(
     summed_predictions <- round(rowSums(predicted, na.rm = TRUE), 10) # avoid numeric errors
   }
   # Allow for numeric errors
-  tolerance <- 1e-8
+  tolerance <- 1e-4
   invalid_rows <- abs(summed_predictions - 1) > tolerance
   if (any(invalid_rows)) {
     #nolint start: keyword_quote_linter object_usage_linter

Original file line number	Diff line number	Diff line change
`@@ -73,7 +73,7 @@ assert_input_categorical <- function(`
`73`	`73`	`summed_predictions <- round(rowSums(predicted, na.rm = TRUE), 10) # avoid numeric errors`
`74`	`74`	`}`
`75`	`75`	`# Allow for numeric errors`
`76`		`- tolerance <- 1e-8`
	`76`	`+ tolerance <- 1e-4`
`77`	`77`	`invalid_rows <- abs(summed_predictions - 1) > tolerance`
`78`	`78`	`if (any(invalid_rows)) {`
`79`	`79`	`#nolint start: keyword_quote_linter object_usage_linter`