bug fix

JinmiaoChenLab · Jun 16, 2022 · 184b623 · 184b623
1 parent 71066f4
commit 184b623
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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