# 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))
  }
  minnndist(amacrine, by=marks(amacrine))
  maxnndist(amacrine, by=marks(amacrine))
# }
Run the code above in your browser using DataLab