min(nndist(swedishpines))
minnndist(swedishpines)
max(nndist(swedishpines))
maxnndist(swedishpines)
minnndist(lansing, positive=TRUE)
if(interactive()) {
X <- runifrect(1e6)
system.time(min(nndist(X)))
system.time(minnndist(X))
}
minnndist(amacrine, by=marks(amacrine))
maxnndist(amacrine, by=marks(amacrine))
Run the code above in your browser using DataLab