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: Fix error copying the input

Browse source
This commit is contained in:
Elias Projahn 2021-11-12 10:33:33 +01:00
parent 4dda7fa49e
commit 0e641e4dd2
1 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

5
R/ranking.R
View file

@ -30,10 +30,11 @@ ranking <- function(analysis, weights, min_n_species = 10) {
# Exclude genes with too few species. # Exclude genes with too few species.
ranking <- analysis$results[ ranking <- analysis$results[
genes_n_species[gene, n_species] >= min_n_species, genes_n_species[gene, n_species] >= min_n_species
.(score = 0.0)
] ]
ranking[, score := 0.0]
for (method in names(weights)) { for (method in names(weights)) {
weighted <- weights[[method]] * ranking[, ..method] weighted <- weights[[method]] * ranking[, ..method]
ranking[, score := score + weighted] ranking[, score := score + weighted]