diff --git a/R/FastFindAnchors.R b/R/FastFindAnchors.R index 2a8cb72..956904f 100644 --- a/R/FastFindAnchors.R +++ b/R/FastFindAnchors.R @@ -100,7 +100,7 @@ FastFindAnchors = function( data.table::setindex(all.anchors, dataset1) message("Merging data") - if (nSample < sample.cut) { + if (nSample <= sample.cut) { anchor.group <- all.anchors %>% group_by(dataset1, dataset2) %>% summarise(n = n()) similarity.matrix = matrix(data = 0, ncol = nSample, nrow = nSample) similarity.matrix[lower.tri(similarity.matrix, diag=FALSE) | upper.tri(similarity.matrix, diag=FALSE)] = anchor.group$n