powered by
as.SpatialPolygons.PolygonsList(Srl, proj4string=CRS(as.character(NA)))
"CRS"
grd <- GridTopology(c(1,1), c(1,1), c(10,10)) polys <- as.SpatialPolygons.GridTopology(grd) plot(polys) text(getSpPPolygonsLabptSlots(polys), labels=getSpPPolygonsIDSlots(polys), cex=0.6)
Run the code above in your browser using DataLab