mirror of
https://github.com/johrpan/geposan.git
synced 2025-10-26 10:47:25 +01:00
correlation: Fix data preparation
This commit is contained in:
parent
7bd63aa6d3
commit
4b1ab9fc9a
1 changed files with 3 additions and 3 deletions
|
|
@ -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")
|
||||||
|
|
|
||||||
Loading…
Add table
Add a link
Reference in a new issue