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 experimental neural network

Browse source
This commit is contained in:
Elias Projahn 2021-10-05 18:30:12 +02:00
parent 397b8d0ba2
commit 0aa88119d2
4 changed files with 163 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

33
init.R
View file

@ -1,6 +1,7 @@
source("clustering.R")
source("correlation.R")
source("input.R")
source("neural.R")
source("util.R")
# Load input data
@ -56,6 +57,24 @@ correlation_replicative <- run_cached(
tpe_old_genes
)
neural_all <- run_cached(
"neural_all",
process_neural,
distances,
all_species,
all_genes,
tpe_old_genes
)
neural_replicative <- run_cached(
"neural_replicative",
process_neural,
distances,
replicative_species,
all_genes,
tpe_old_genes
)
# Merge processed data as well as gene information.
results_all <- merge(
@ -72,6 +91,13 @@ results_all <- merge(
by.y = "gene"
)
results_all <- merge(
results_all,
neural_all,
by.x = "id",
by.y = "gene"
)
results_replicative <- merge(
genes,
clustering_replicative,
@ -86,6 +112,13 @@ results_replicative <- merge(
by.y = "gene"
)
results_replicative <- merge(
results_replicative,
neural_replicative,
by.x = "id",
by.y = "gene"
)
# Rename `id` columns to `gene`.
setnames(results_all, "id", "gene")