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

adjacency: Fix bug in density computation

Browse source
This commit is contained in:
Elias Projahn 2021-12-09 15:02:25 +01:00
parent 8aafcb7555
commit 207fc753a7
1 changed files with 1 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

2
R/adjacency.R
View file

@ -11,7 +11,7 @@ adjacency <- function(preset, progress = NULL) {
cached("adjacency", c(species_ids, gene_ids, reference_gene_ids), { cached("adjacency", c(species_ids, gene_ids, reference_gene_ids), {
# Get the virtual distance value with the highest density. # Get the virtual distance value with the highest density.
compute_densest_distance <- function(distances) { compute_densest_distance <- function(distances) {
if (length(distances <= 2)) { if (length(distances) <= 2) {
mean(distances) mean(distances)
} else { } else {
d <- stats::density(distances) d <- stats::density(distances)