X1 <- matrix(rnorm(1000), ncol = 10)
X2 <- matrix(rnorm(1000, mean = 0.5), ncol = 10)
dists <- stats::dist(rbind(X1, X2))
if(requireNamespace("ade4", quietly = TRUE)) {
# MST
MST(dists)
# 5-MST
MST(dists, K = 5)
}
Run the code above in your browser using DataLab