correlation: Fix data preparation

This commit is contained in:
Elias Projahn 2021-11-14 17:49:16 +01:00
parent 7bd63aa6d3
commit 4b1ab9fc9a

View file

@ -31,10 +31,10 @@ correlation <- function(preset, use_positions = FALSE, progress = NULL) {
.(gene, distance) .(gene, distance)
] ]
} }
}
data <- merge(data, species_data, all.x = TRUE) data <- merge(data, species_data, all.x = TRUE)
setnames(data, "distance", species_id) setnames(data, "distance", species_id)
}
# Transpose to the desired format. # Transpose to the desired format.
data <- transpose(data, make.names = "gene") data <- transpose(data, make.names = "gene")