From 5483c7f248a4803e24bd3d6d26a271da35edca60 Mon Sep 17 00:00:00 2001
From: 1136514475 <1136514475@qq.com>
Date: Wed, 11 Dec 2019 20:54:05 +0800
Subject: [PATCH] sort similarities and indexes

---
 R/CoreMethods.R | 2 ++
 1 file changed, 2 insertions(+)

diff --git a/R/CoreMethods.R b/R/CoreMethods.R
index ef5bdf6..68b11c5 100644
--- a/R/CoreMethods.R
+++ b/R/CoreMethods.R
@@ -451,6 +451,8 @@ scmapCell2Cluster.SingleCellExperiment <- function(scmapCell_results, cluster_li
     labs_new <- character(ncol(cells))
     similarities_new <- numeric(ncol(cells))
     for (j in seq_len(ncol(cells))) {
+      similarities[, j] = sort(similarities[, j], decreasing = TRUE)
+      cells[, j] = cells[, j][sort(similarities[, j], decreasing = TRUE, index.return = TRUE)$ix]
       celltypes <- character(w)
       for (k in 1:w) {
         celltypes[k] <- cluster_list[[i]][cells[k, j]]