Find Line Segment Nearest to Each Point
Given a point pattern and a line segment pattern, this function finds the nearest line segment for each point.
- A point pattern (object of class
- A line segment pattern (object of class
The distance between a point
x and a straight line segment
defined to be the shortest Euclidean distance between
x and any
y. This algorithm first calculates the distance
from each point of
each segment of
Y. Then it determines, for each point
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
project2segment to project each point of
a point lying on one of the line segments.
X <- runifpoint(3) Y <- as.psp(matrix(runif(20), 5, 4), window=owin()) v <- nearestsegment(X,Y) plot(Y) plot(X, add=TRUE) plot(X, add=TRUE, col="red") plot(Y[v], add=TRUE, lwd=2, col="red")