find.neighbor(x, quadtree=quad.tree(x), k=1, metric="euclidean",
max.dist=NULL)
l_1 = sum | x[i] - y[i] |, L_2 = sqrt(sum ( x[i] - y[i] )^2), and L_infinity = max | x[i] - y[i] |
x <- cbind(sids$easting, sids$northing) sids.nhbr <- find.neighbor(x, max.dist = 30)