ourMELONS/R/clusternum.R

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]

		# Assign this node number to leaf children
		t <- (children <= m)
		T[children[t]] <- c
		# Move to next level
		k <- children[!t] - m
	}
	return(T)
}