## Not run:
# dev.new(width=7,height=7)
# a<-pointsworld(world, dat, x="x", y="y", ext = c(-180, 180, -90, 90))
# a<-pointsworld(world, dat, x="x", y="y", ext = "p")
# a<-pointsworld(world, dat, x="x", y="y", ext = c(10, 40, -35, -20))
# ## End(Not run)
Run the code above in your browser using DataLab