mirror of
https://github.com/johrpan/geposanui.git
synced 2025-10-26 11:17:24 +01:00
77 lines
1.5 KiB
R
77 lines
1.5 KiB
R
# Species IDs of known replicatively aging species.
|
|
species_ids_replicative <- c(
|
|
"bihybrid",
|
|
"btaurus",
|
|
"bthybrid",
|
|
"cfamiliaris",
|
|
"chircus",
|
|
"cjacchus",
|
|
"clfamiliaris",
|
|
"csabaeus",
|
|
"ecaballus",
|
|
"fcatus",
|
|
"ggorilla",
|
|
"hsapiens",
|
|
"lafricana",
|
|
"mfascicularis",
|
|
"mmulatta",
|
|
"mmurinus",
|
|
"mnemestrina",
|
|
"nleucogenys",
|
|
"oaries",
|
|
"pabelii",
|
|
"panubis",
|
|
"ppaniscus",
|
|
"ptroglodytes",
|
|
"sscrofa",
|
|
"tgelada"
|
|
)
|
|
|
|
# Species from [geposan] and their aging status.
|
|
species <- geposan::species[, .(
|
|
id,
|
|
name,
|
|
replicative = id %chin% species_ids_replicative
|
|
)]
|
|
|
|
# Gene names of genes for verified TPE-OLD genes.
|
|
genes_verified_tpe_old <- c(
|
|
"C1S",
|
|
"DSP",
|
|
"ISG15",
|
|
"SORBS2",
|
|
"TERT"
|
|
)
|
|
|
|
# Gene names of genes with a suggested TPE-OLD.
|
|
genes_suggested_tpe_old <- c(
|
|
"AKAP3",
|
|
"ANO2",
|
|
"CCND2",
|
|
"CD163L1",
|
|
"CD9",
|
|
"FOXM1",
|
|
"GALNT8",
|
|
"NDUFA9",
|
|
"TEAD4",
|
|
"TIGAR",
|
|
"TSPAN9"
|
|
)
|
|
|
|
# Genes from [geposan] and their TPE-OLD status.
|
|
genes <- geposan::genes[, .(
|
|
id,
|
|
name,
|
|
chromosome,
|
|
suggested = name %chin% genes_suggested_tpe_old,
|
|
verified = name %chin% genes_verified_tpe_old
|
|
)]
|
|
|
|
# All available methods from [geposan] and additional information on them.
|
|
methods <- geposan::all_methods()
|
|
|
|
# IDs of methods for geposan.
|
|
method_ids <- sapply(methods, function(method) method$id)
|
|
|
|
# Names of methods for geposan.
|
|
method_names <- sapply(methods, function(method) method$name)
|