criar e exportar polígono

[Ricardo Dobrovolski]

Oi pessoal,

Eu gostaria de criar um polígono e exportar no formato shape.

Alguém sabe como fazer? 

library(sp)

library(rgdal)

library(maptools)

m=c(6,-43,-16,-43,-16,-74,6,-74,6,-43)

m=matrix(m,5,2,byrow=T)

m

ID="BR1"

pol1=list(Polygon(m))

pol1=list(Polygons(pol1,ID))

spol1=SpatialPolygons(pol1)

plot(spol1)

writePolyShape(spol1,"br_pol_01")

Abraço,

RD.

[R-Ecology]

tenta a função writeOGR