## Not run:
# library(sp)
#
# coords1 <- cbind(c(2, 4, 4, 1, 2), c(2, 3, 5, 4, 2))
# spy1 <- coords2Polygons(coords1, ID = "A")
#
# coords2 <- cbind(c(5, 4, 2, 5), c(2, 3, 2, 2))
# spy2 <- coords2Polygons(coords2, ID = "B")
#
# plot(spy1, col = "grey75")
# plot(spy2, col = "grey25", add = TRUE)
# ## End(Not run)
Run the code above in your browser using DataLab