2021-10-20 15:34:52 +02:00
|
|
|
# Species IDs of known replicatively aging species.
|
2021-10-19 14:15:28 +02:00
|
|
|
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"
|
|
|
|
|
)
|
|
|
|
|
|
2021-10-20 15:34:52 +02:00
|
|
|
# Gene names of genes for verified TPE-OLD genes.
|
2021-10-19 14:15:28 +02:00
|
|
|
genes_verified_tpe_old <- c(
|
|
|
|
|
"C1S",
|
|
|
|
|
"DSP",
|
|
|
|
|
"ISG15",
|
|
|
|
|
"SORBS2",
|
|
|
|
|
"TERT"
|
|
|
|
|
)
|
|
|
|
|
|
2021-10-20 15:34:52 +02:00
|
|
|
# Gene names of genes with a suggested TPE-OLD.
|
2021-10-19 14:15:28 +02:00
|
|
|
genes_suggested_tpe_old <- c(
|
|
|
|
|
"AKAP3",
|
|
|
|
|
"ANO2",
|
|
|
|
|
"CCND2",
|
|
|
|
|
"CD163L1",
|
|
|
|
|
"CD9",
|
|
|
|
|
"FOXM1",
|
|
|
|
|
"GALNT8",
|
|
|
|
|
"NDUFA9",
|
|
|
|
|
"TEAD4",
|
|
|
|
|
"TIGAR",
|
|
|
|
|
"TSPAN9"
|
|
|
|
|
)
|
|
|
|
|
|
2021-10-20 15:34:52 +02:00
|
|
|
# Genes from [geposan] and their TPE-OLD status.
|
2021-10-19 14:15:28 +02:00
|
|
|
genes <- geposan::genes[, .(
|
|
|
|
|
id,
|
|
|
|
|
name,
|
|
|
|
|
chromosome,
|
|
|
|
|
suggested = name %chin% genes_suggested_tpe_old,
|
|
|
|
|
verified = name %chin% genes_verified_tpe_old
|
|
|
|
|
)]
|
|
|
|
|
|
2021-10-20 15:34:52 +02:00
|
|
|
# All available methods from [geposan] and additional information on them.
|
2021-12-16 13:52:14 +01:00
|
|
|
methods <- geposan::all_methods()
|
2021-10-19 14:15:28 +02:00
|
|
|
|
2021-11-14 22:34:46 +01:00
|
|
|
# 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)
|
