data(lalib)
hexPts <- samplePts(lalib, 5, "hexagonal")
plot(lalib, xlim=c(bbox(lalib)[1], bbox(lalib)[3]), ylim=c(bbox(lalib)[2],
bbox(lalib)[4]))
plot(hexPts, add=TRUE)
if (FALSE) {
randomPts <- samplePts(lalib, 5, "random")
plot(lalib, xlim=c(bbox(lalib)[1], bbox(lalib)[3]), ylim=c(bbox(lalib)[2],
bbox(lalib)[4]))
plot(randomPts, add=TRUE)
}
Run the code above in your browser using DataLab