johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 18:57:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

ranking: Clamp weights to 0.0

Browse source
This commit is contained in:
Elias Projahn 2021-10-21 16:21:55 +02:00
parent 21a5817988
commit 7f2847423c
1 changed files with 1 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

1
R/ranking.R
View file

@ -67,6 +67,7 @@ optimize_weights <- function(results, methods, reference_gene_ids,
} }
factors <- stats::optim(rep(1.0, length(methods)), target_rank)$par factors <- stats::optim(rep(1.0, length(methods)), target_rank)$par
factors[factors < 0.0] <- 0.0
total_weight <- sum(factors) total_weight <- sum(factors)
weights(factors / total_weight) weights(factors / total_weight)