From c975a7c820fcf5374891403afb7958942cbf3219 Mon Sep 17 00:00:00 2001
From: Waldir Leoncio <w.l.netto@medisin.uio.no>
Date: Thu, 20 May 2021 09:18:33 +0200
Subject: [PATCH] Removed duplicated function

---
 R/cluster_own.R | 16 ----------------
 1 file changed, 16 deletions(-)

diff --git a/R/cluster_own.R b/R/cluster_own.R
index 12d4fbf..bab7bb9 100644
--- a/R/cluster_own.R
+++ b/R/cluster_own.R
@@ -33,19 +33,3 @@ cluster_own <- function(Z, nclust) {
 	}
 	return(T)
 }
-
-clusternum <- function(X, T, k, c) {
-	m <- size(X, 1) + 1
-	while (!isempty(k)) {
-		# Get the children of nodes at this level
-		children <- X[k, 1:2]
-		children <- children
-
-		# Assign this node number to leaf children
-		t <- (children <= m)
-		T[children[t]] <- c
-		# Move to next level
-		k <- children(!t) - m
-	}
-	return(T)
-}
\ No newline at end of file