## from ?chullPolygon:
XY <- rbind(c(0, 0),
c(1, 0),
c(.25, .25),
c(.5, .5),
c(1.2, .8),
c(1, .78),
c(0, 1))
layout(matrix(1:9, 3, 3, TRUE))
k <- 2
for (i in 1:9) {
msk <- polygon2mask(XY, k = k)
d <- dim(msk)
image(1:d[1], 1:d[2], msk)
dm <- paste(d, collapse = "x")
title(paste("k =", k, ", dim =", dm))
k <- k * 2
}
layout(1)
Run the code above in your browser using DataLab