Translate clusternum

R/clusternum.R

@@ -0,0 +1,16 @@
+clusternum <- function(X, T, k, c) {
+	m <- size(X, 1) + 1
+	while (!is.null(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)
+}