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

preset: Remove min_n_species customization

Browse source
This commit is contained in:
Elias Projahn 2021-11-18 12:30:19 +01:00
parent 33056bfa40
commit de1c1ed40e
3 changed files with 48 additions and 31 deletions
Download patch file Download diff file Expand all files Collapse all files

12
R/analyze.R
View file

@ -75,17 +75,7 @@ analyze <- function(preset, progress = NULL) {
total_progress <- total_progress + 1 / method_count
}
# Count included species from the preset per gene.
genes_n_species <- geposan::distances[
species %chin% preset$species_ids,
.(n_species = .N),
by = "gene"
]
setkey(genes_n_species, "gene")
# Return the results for genes with enough species.
results[genes_n_species[gene, n_species] >= preset$min_n_species]
results
})
if (!is.null(progress)) {