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
.k
th nearest neighbour."C"
and "interpreted"
.k
th)
nearest neighbour distances for each point.k+1
points).k
is specified, it computes the
distance to the k
th 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