Base clusteriness on species count

This commit is contained in:
Elias Projahn 2021-10-04 09:19:38 +02:00
parent 8b727a0329
commit 397b8d0ba2
2 changed files with 7 additions and 7 deletions

View file

@ -41,7 +41,7 @@ process_correlation <- function(distances, species_ids, gene_ids,
gene_id <- gene_ids[i]
gene_distances <- distances[gene == gene_id]
if (nrow(gene_distances) < 12) {
if (nrow(gene_distances) < 10) {
next
}