nndist(X, ..., method="C")
## S3 method for class 'ppp':
nndist(X, \dots, k=1, method="C")
## S3 method for class 'default':
nndist(X, Y=NULL, \dots, k=1, method="C")nndist.ppp, the argument X should be a point
pattern (object of class "ppp").
For nndist.default, typically X and <nndist.ppp
and nndist.default.kth nearest neighbour."C" and "interpreted".kth)
nearest neighbour distances for each point.k+1 points).k is specified, it computes the
distance to the kth nearest neighbour. The function nndist is generic, with
a method for point patterns (objects of class "ppp"),
and a default method for coordinate vectors.
There is also a method for line segment patterns, nndist.psp.
The method for point patterns expects a single
point pattern argument X and returns the vector of its
nearest neighbour distances.
The default method expects that X and Y will determine
the coordinates of a set of points. Typically X and
Y would be numeric vectors of equal length. Alternatively
Y may be omitted and X may be a list with two components
named x and y, or a matrix or data frame with two columns.
The argument method is not normally used. It is
retained only for checking the validity of the software.
If method = "interpreted" then the distances are
computed using interpreted R code only. If method="C"
(the default) then C code is used.
The C code is faster by two to three orders of magnitude
and uses much less memory.
If there is only one point (if x has length 1),
then a nearest neighbour distance of Inf is returned.
If there are no points (if x has length zero)
a numeric vector of length zero is returned.
To identify which point is the nearest neighbour of a given point,
use nnwhich.
To use the nearest neighbour distances for statistical inference,
it is often advisable to use the edge-corrected empirical distribution,
computed by Gest.
To find the nearest neighbour distances from one point pattern
to another point pattern, use nncross.
nndist.psp,
pairdist,
Gest,
nnwhich,
nncross.data(cells)
d <- nndist(cells)
d2 <- nndist(cells, k=2)
x <- runif(100)
y <- runif(100)
d <- nndist(x, y)
# Stienen diagram
plot(cells %mark% (nndist(cells)/2), markscale=1)Run the code above in your browser using DataLab