Remove unneccessary code.

swarm-lab · Jul 13, 2024 · ec9cc7d · ec9cc7d
1 parent 093ef6a
commit ec9cc7d
Showing 1 changed file with 0 additions and 6 deletions.
diff --git a/R/gravitree.R b/R/gravitree.R
@@ -49,12 +49,6 @@ gravitree <- function(x, m, k = NULL, sample = 1, na_rm = FALSE) {
       ix <- cluster == i
       .wcov(xx[ix, , drop = FALSE], mm[ix])
     })
-    # tmp <- rep(NA, nr)
-    # tmp[ix] <- cluster
-    # tmp[notix] <- Rfast::rowMins(sapply(1:k, function(i) {
-    #   .Mahalanobis(x[notix, , drop = FALSE], centers[[i]]$center, centers[[i]]$cov)
-    # }))
-    # cluster <- tmp
   } else {
     centers <- lapply(1:k, function(i) {
       ix <- cluster == i