View source: R/nearestsegment.R
nearestsegment | R Documentation |
Given a point pattern and a line segment pattern, this function finds the nearest line segment for each point.
nearestsegment(X, Y)
X |
A point pattern (object of class |
Y |
A line segment pattern (object of class |
The distance between a point x
and a straight line segment y
is
defined to be the shortest Euclidean distance between x
and any
location on y
. This algorithm first calculates the distance
from each point of X
to
each segment of Y
. Then it determines, for each point x
in
X
, which segment of Y
is closest. The index of this
segment is returned.
Integer vector v
(of length equal to the number of points in
X
) identifying the nearest segment to each point.
If v[i] = j
, then
Y[j]
is the line segment lying closest to X[i]
.
and \rolf
project2segment
to project each point of X
to
a point lying on one of the line segments.
Use distmap.psp
to
identify the nearest line segment for each pixel in a grid.
X <- runifrect(3)
Y <- as.psp(matrix(runif(20), 5, 4), window=owin())
v <- nearestsegment(X,Y)
plot(Y)
plot(X, add=TRUE)
plot(X[1], add=TRUE, col="red")
plot(Y[v[1]], add=TRUE, lwd=2, col="red")
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.