# NOT RUN {
data(PBCshp)
require(sp) #load sp package
poly <- PBCshp@polygons[[1]]@Polygons[[1]]@coords
#create a spatialpolygons object
bound <- SpatialPolygons(list(Polygons(list(Polygon(poly)), "x")))
point <- SDALGCPRegularPoint(poly=poly, delta=100, n=1, bound = bound)
# }
Run the code above in your browser using DataLab