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

Fix bugs in correlation method

Browse source
This commit is contained in:
Elias Projahn 2021-10-19 17:34:36 +02:00
parent 37f468658c
commit e6bca4d515
1 changed files with 12 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

16
R/correlation.R
View file

@ -31,8 +31,11 @@ correlation <- function(distances, preset, progress = NULL) {
correlation_sum <- 0
# Correlate with all reference genes but not with the gene itself.
for (reference_gene_id in
reference_gene_ids[reference_gene_ids != gene_id]) {
gene_reference_gene_ids <- reference_gene_ids[
reference_gene_ids != gene_id
]
for (reference_gene_id in gene_reference_gene_ids) {
data <- merge(
gene_distances,
reference_distances[reference_gene_id],
@ -50,14 +53,19 @@ correlation <- function(distances, preset, progress = NULL) {
# relation.
setorder(data, distance.y)
correlation_sum <- correlation_sum + abs(stats::cor(
correlation <- abs(stats::cor(
data[, distance.x], data[, distance.y],
method = "spearman"
))
# If the correlation is NA, this will effectively mean 0.0.
if (!is.na(correlation)) {
correlation_sum <- correlation_sum + correlation
}
}
# Compute the score as the mean correlation coefficient.
score <- correlation_sum / reference_count
score <- correlation_sum / length(gene_reference_gene_ids)
if (!is.null(progress)) {
genes_done <<- genes_done + 1