R/NNid.R

`NNid` <-
function (xy, splancs = TRUE) 
{
    if (splancs) {
        nndistG(xy)$neighs
    }
##    else {
##        temp <- #####find.####neighbor(xy, k = 2)
##        as.vector(temp[temp[, 1] != temp[, 2], 2])
##    }
}

Try the dixon package in your browser

Any scripts or data that you put into this service are public.

dixon documentation built on May 2, 2019, 1:02 a.m.