From 1dd52871a0eea8ef171621c2db90d13e8988c935 Mon Sep 17 00:00:00 2001
From: Alex Zwanenburg <alexander.zwanenburg@nct-dresden.de>
Date: Sat, 21 Sep 2024 16:01:21 +0200
Subject: [PATCH] Set correct winsorising fraction.

---
 R/Utilities.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/Utilities.R b/R/Utilities.R
index 98c4f1fb..3c28d55d 100644
--- 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) {