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

Use ensembl database server instead of biomart

Browse source
This commit is contained in:
Elias Projahn 2023-11-08 12:15:26 +01:00
parent 948cb337db
commit 795fe99003
16 changed files with 373 additions and 452 deletions
Download patch file Download diff file Expand all files Collapse all files

11
R/plots.R
View file

@ -561,13 +561,14 @@ plot_scores_by_position <- function(ranking,
}
distance_data <- if (!is.null(chromosome_name)) {
chromosome_name_ <- chromosome_name
geposan::distances[
species == "hsapiens" &
chromosome_name == chromosome_name_
chromosome_id <- geposan::chromosomes[
species == "9606" & name == chromosome_name,
id
]
geposan::distances[species == "9606" & chromosome == chromosome_id]
} else {
geposan::distances[species == "hsapiens"]
geposan::distances[species == "9606"]
}
data <- merge(ranking, distance_data, by = "gene")