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

preset: Actually filter input genes

Browse source
This commit is contained in:
Elias Projahn 2021-11-26 11:41:49 +01:00
parent c6a5c2b59c
commit 2c15ba55c1
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
R/preset.R
View file

@ -54,7 +54,8 @@ preset <- function(methods = c(
# Filter out genes with less than 25% existing orthologs. # Filter out genes with less than 25% existing orthologs.
gene_ids_filtered <- genes_n_species[ gene_ids_filtered <- genes_n_species[
n_species >= 0.25 * length(species_ids), gene %chin% gene_ids &
n_species >= 0.25 * length(species_ids),
gene gene
] ]