Set correct winsorising fraction.

alexzwanenburg · Sep 21, 2024 · 1dd5287 · 1dd5287
1 parent 5d7218c
commit 1dd5287
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/Utilities.R b/R/Utilities.R
@@ -1522,7 +1522,7 @@ huber_estimate <- function(x, k = 1.28, tol = 1E-4) {
 
   } else {
     # Fallback option based on winsorised distributions.
-    x <- winsor(x, fraction = 0.90)
+    x <- winsor(x, fraction = 0.10)
     x <- x[is.finite(x)]
 
     if(length(x) <= 1) {