set.seed(1234)
X1 <- matrix(rnorm(1000), ncol = 10)
X2 <- matrix(rnorm(1000, mean = 0.5), ncol = 10)
dists <- stats::dist(rbind(X1, X2))
# Nearest neighbor graph
if(requireNamespace("dbscan", quietly = TRUE)) {
knn(dists)
}
if(requireNamespace("FNN", quietly = TRUE)) {
knn.fast(dists)
}
knn.bf(dists)
# 5-Nearest neighbor graph
if(requireNamespace("dbscan", quietly = TRUE)) {
knn(dists, K = 5)
}
if(requireNamespace("FNN", quietly = TRUE)) {
knn.fast(dists, K = 5)
}
knn.bf(dists, K = 5)
Run the code above in your browser using DataLab