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

preset editor: Simplify and add more options

Browse source
This commit is contained in:
Elias Projahn 2021-11-15 10:22:28 +01:00
parent b5957262a3
commit 9b9109b389
5 changed files with 124 additions and 59 deletions
Download patch file Download diff file Expand all files Collapse all files

23
R/data.R
View file

@ -106,26 +106,3 @@ method_ids <- sapply(methods, function(method) method$id)
# Names of methods for geposan.
method_names <- sapply(methods, function(method) method$name)
# Gene IDs of known or suggested TPE-OLD genes.
genes_tpe_old <- genes[suggested | verified == TRUE, id]
# Species IDs for replicatively aging species.
species_replicative <- species[replicative == TRUE, id]
# Preset for [geposan] including all species and TPE-OLD genes for reference.
preset_all_species <- geposan::preset(
methods = method_ids,
species_ids = species$id,
gene_ids = genes$id,
reference_gene_ids = genes_tpe_old
)
# Preset for [geposan] including only replicatively aging species as well as
# TPE-OLD genes for reference.
preset_replicative_species <- geposan::preset(
methods = method_ids,
species_ids = species_replicative,
gene_ids = genes$id,
reference_gene_ids = genes_tpe_old
)