From ec9cc7d06060781caa364e3c91f043b79b5527ef Mon Sep 17 00:00:00 2001
From: Simon Garnier <garnier@njit.edu>
Date: Sat, 13 Jul 2024 17:37:18 +0200
Subject: [PATCH] Remove unneccessary code.

---
 R/gravitree.R | 6 ------
 1 file changed, 6 deletions(-)

diff --git a/R/gravitree.R b/R/gravitree.R
index acf44d7..33ea482 100644
--- 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