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