From 7f2847423cc90f88145da2b02862c82442a53f61 Mon Sep 17 00:00:00 2001
From: Elias Projahn <elias@johrpan.de>
Date: Thu, 21 Oct 2021 16:21:55 +0200
Subject: [PATCH] ranking: Clamp weights to 0.0

---
 R/ranking.R | 1 +
 1 file changed, 1 insertion(+)

diff --git a/R/ranking.R b/R/ranking.R
index bbbfb51..48d8369 100644
--- a/R/ranking.R
+++ b/R/ranking.R
@@ -67,6 +67,7 @@ optimize_weights <- function(results, methods, reference_gene_ids,
     }
 
     factors <- stats::optim(rep(1.0, length(methods)), target_rank)$par
+    factors[factors < 0.0] <- 0.0
     total_weight <- sum(factors)
 
     weights(factors / total_weight)