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

Order data before correlating

Browse source
This commit is contained in:
Elias Projahn 2021-09-19 20:19:20 +02:00
parent e9c05fdbab
commit 8e54dacd3d
1 changed files with 4 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

4
correlation.R
View file

@ -51,6 +51,10 @@ process_correlation <- function(distances, species_ids, gene_ids,
by = "species" by = "species"
) )
# Order data by the reference gene's distance to get a monotonic
# relation.
setorder(data, distance.y)
r_sum <- r_sum + abs(cor(data[, distance.x], data[, distance.y])) r_sum <- r_sum + abs(cor(data[, distance.x], data[, distance.y]))
} }