fix

easystats · Dec 3, 2024 · 47963a3 · 47963a3
1 parent a2f8a52
commit 47963a3
Showing 1 changed file with 7 additions and 0 deletions.
diff --git a/R/check_outliers.R b/R/check_outliers.R
@@ -883,6 +883,13 @@ check_outliers.data.frame <- function(x,
   } else if (is.numeric(threshold)) {
     thresholds <- .check_outliers_thresholds(x)
     thresholds <- lapply(thresholds, function(x) threshold)
+    # need to fix this manually - "optics" automatically includes method
+    # "optics_xi", which is allowed to range between 0 and 1 - since values
+    # for "optics" can be > 1, it might overwrite "optics_xi" with an invalid
+    # value...
+    if (thresholds$optics_xi > 1) {
+      thresholds$optics_xi <- 0.05
+    }
   } else {
     insight::format_error(
       paste(