johrpan/geposan
1
0
Fork 0
mirror of https://github.com/johrpan/geposan.git synced 2025-10-26 18:57:25 +01:00
Code Issues Projects Releases Packages Wiki Activity Actions

neural: Add progress information

Browse source
This commit is contained in:
Elias Projahn 2021-11-22 13:32:50 +01:00
parent 7d3bedb436
commit 1058dfaa17
1 changed files with 8 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

8
R/neural.R
View file

@ -8,6 +8,9 @@ neural <- function(preset, progress = NULL, seed = 49641) {
set.seed(seed) set.seed(seed)
gene_count <- length(gene_ids) gene_count <- length(gene_ids)
progress_buffer <- 0
progress_step <- 1 / (2 * length(reference_gene_ids) + 1)
# Prefilter distances by species. # Prefilter distances by species.
distances <- geposan::distances[species %chin% species_ids] distances <- geposan::distances[species %chin% species_ids]
@ -146,6 +149,11 @@ neural <- function(preset, progress = NULL, seed = 49641) {
data_matrix <- keras::normalize(data_matrix) data_matrix <- keras::normalize(data_matrix)
data[gene %chin% gene_ids, score := predict(model, data_matrix)] data[gene %chin% gene_ids, score := predict(model, data_matrix)]
if (!is.null(progress)) {
progress_buffer <<- progress_buffer + progress_step
progress(progress_buffer)
}
} }
# Apply the network to all non-training genes first. # Apply the network to all non-training genes first.