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)
## Not run:
# 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)
# ## End(Not run)
Run the code above in your browser using DataLab