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

Properly access distance data

Browse source
This commit is contained in:
Elias Projahn 2021-10-21 14:26:03 +02:00
parent c0a1d965d7
commit 21a5817988
5 changed files with 12 additions and 18 deletions
Download patch file Download diff file Expand all files Collapse all files

4
R/neural.R
View file

@ -1,7 +1,7 @@
# Find genes by training a neural network on reference position data.
#
# @param seed A seed to get reproducible results.
neural <- function(distances, preset, progress = NULL, seed = 448077) {
neural <- function(preset, progress = NULL, seed = 448077) {
species_ids <- preset$species_ids
reference_gene_ids <- preset$reference_gene_ids
@ -9,7 +9,7 @@ neural <- function(distances, preset, progress = NULL, seed = 448077) {
gene_count <- length(preset$gene_ids)
# Prefilter distances by species.
distances <- distances[species %chin% species_ids]
distances <- geposan::distances[species %chin% species_ids]
# Input data for the network. This contains the gene ID as an identifier
# as well as the per-species gene distances as input variables.