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

data: Remove absolute positions

Browse source
This commit is contained in:
Elias Projahn 2021-12-13 10:36:44 +01:00
parent d98c70a205
commit 01ec301d6d
6 changed files with 6 additions and 10 deletions
Download patch file Download diff file Expand all files Collapse all files

2
scripts/ensembl.R
View file

@ -333,7 +333,6 @@ human_data[, chromosome_length := max(end_position), by = chromosome_name]
distances <- human_data[, .(
species = "hsapiens",
gene = ensembl_gene_id,
position = start_position,
distance = pmin(
start_position,
chromosome_length - end_position
@ -405,7 +404,6 @@ for (species_id in species[!id == "hsapiens", id]) {
species_distances <- species_distances[, .(
species = species_id,
gene = hsapiens_homolog_ensembl_gene,
position = start_position,
distance = pmin(
start_position,
chromosome_length - end_position