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

Add slider to set required number of species

Browse source
This commit is contained in:
Elias Projahn 2021-10-11 11:08:50 +02:00
parent 48aa46c2c4
commit 4222a08b87
3 changed files with 42 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

18
init.R
View file

@ -79,6 +79,13 @@ neural_replicative <- run_cached(
results_all <- merge(
genes,
distances[, .(n_species = .N), by = "gene"],
by.x = "id",
by.y = "gene"
)
results_all <- merge(
results_all,
clustering_all,
by.x = "id",
by.y = "gene"
@ -100,6 +107,17 @@ results_all <- merge(
results_replicative <- merge(
genes,
distances[
species %chin% species_ids_replicative,
.(n_species = .N),
by = gene
],
by.x = "id",
by.y = "gene"
)
results_replicative <- merge(
results_replicative,
clustering_replicative,
by.x = "id",
by.y = "gene"