R/nn.R

In Rnanoflann: Extremely Fast Nearest Neighbor Search

#[export]
nn <- function(data, points = data, k = nrow(data), method = "euclidean", search = "standard", eps = 0.0, square = FALSE,
                sorted = FALSE, radius = 0.0, trans = TRUE, leafs = 10, parallel = FALSE, cores = 0){
    res <- .Call(`_Rnanoflann_nn`, t(data), t(points), k, method, search, eps, square,
                 sorted, radius, leafs, parallel, cores)
    if(trans){
        res$indices <- t(res$indices)
        res$distances <- t(res$distances)
    }
    res
}