Approximate a Polygon by a Simpler Polygon
Given a polygonal window, this function finds a simpler polygon that approximates it.
- The polygon which is to be simplied.
An object of class
- Numeric value. The smallest permissible length of an edge.
This function simplifies a polygon
by recursively deleting the shortest edge of
until all remaining edges are longer than the specified
dmin, or until there are only three edges left.
W must be a window (object of class
"owin"). It should be of type
W is a rectangle, it is returned without alteration.
The simplification algorithm is not yet implemented for
binary masks. If
W is a mask, an error is generated.
- Another window (object of class
"owin") of type
data(letterR) plot(letterR, col="red") plot(simplify.owin(letterR, 0.3), col="blue", add=TRUE) data(chorley) W <- chorley$window plot(W) WS <- simplify.owin(W, 2) plot(WS, add=TRUE, border="green") points(vertices(WS))