letterR <- surveillance:::LETTERR # an "owin" (internally used for checks)
plot(letterR, axes = TRUE)
plot(intersectPolyCircle(letterR, center = c(-1, 2), radius = 2),
add = TRUE, col = 4, lwd = 3)
Run the code above in your browser using DataLab