16 lines
337 B
R
16 lines
337 B
R
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)
|
|
}
|