diff --git a/R/ranking.R b/R/ranking.R index 711b7c5..e9e81e3 100644 --- a/R/ranking.R +++ b/R/ranking.R @@ -30,10 +30,11 @@ ranking <- function(analysis, weights, min_n_species = 10) { # Exclude genes with too few species. ranking <- analysis$results[ - genes_n_species[gene, n_species] >= min_n_species, - .(score = 0.0) + genes_n_species[gene, n_species] >= min_n_species ] + ranking[, score := 0.0] + for (method in names(weights)) { weighted <- weights[[method]] * ranking[, ..method] ranking[, score := score + weighted]