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 initial gene processing

Browse source
This commit is contained in:
Elias Projahn 2021-08-25 15:01:18 +02:00
parent fd72b3426c
commit d3151957a3
3 changed files with 68 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

2
input.R
View file

@ -15,6 +15,7 @@ load_input <- function(path) {
species <- data.table(
id = character(),
group = character(),
label = character(),
median_distance = numeric()
)
@ -44,6 +45,7 @@ load_input <- function(path) {
# add it to the species table along other static data.
species <- rbindlist(list(species, data.table(
id = species_id,
group = original_species[id == species_id, group],
label = original_species[id == species_id, label],
median_distance = median(species_distances[, dist])
)))