fix: account for cluster rank in group labels

bigomics · Mar 20, 2023 · 8fb6509 · 8fb6509
1 parent 5c9529b
commit 8fb6509
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/components/board.clustering/R/clustering_server.R b/components/board.clustering/R/clustering_server.R
@@ -253,7 +253,7 @@ The <strong>Clustering Analysis</strong> module performs unsupervised clustering
         if (k.est == 2) {
           km <- kmeans(gx, centers = 2)
           km.rnk <- rank(km$centers, ties.method = "random")
-          grp.labels <- c("low", "high")[]
+          grp.labels <- c("low", "high")[km.rnk]
           grp <- grp.labels[km$cluster]
         } else if (k.est == 3) {
           km <- kmeans(gx, centers = 3)