<div dir="ltr"><div class="gmail_default" style="font-family:tahoma,sans-serif">Mauro, </div><div class="gmail_default" style="font-family:tahoma,sans-serif">falta o carregar o pacote GDAL. Por favor, insira o comando no script <span style="color:rgb(0,0,0);font-size:13px">require(rgdal).</span></div>
<div class="gmail_default" style="font-family:tahoma,sans-serif"><span style="color:rgb(0,0,0);font-size:13px">Att, </span></div><div class="gmail_default" style="font-family:tahoma,sans-serif"><span style="color:rgb(0,0,0);font-size:13px">Alex Santos</span></div>
<div class="gmail_extra"><br><br><div class="gmail_quote"><span style="color:rgb(0,0,255);font-family:Arial">Por que não rodaram os últimos 
comandos?</span><br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><div bgcolor="#ffffff"><div><font face="Arial"></font></div>
<div><font face="Arial">require(raster)<br>Loading required package: 
raster<br>Loading required package: sp<div class="im"><br> r <- 
raster(nc=20,nr=10)<br> r[] <- 
rep(1:5,each=40)<br> plot(r)<br> res <- 
data.frame(rowColFromCell(r,1:ncell(r)), 
1:ncell(r),getValues(r))<br> names(res) <- 
c("row","col","cell","v")<br> ## criando stack com 4 layers<br> s 
<- stack(r,r,r,r)<br> ## atribuindo valores para cada layer baseado no 
res<br> s[] <- 
as.matrix(res)<br> plot(s)<br> #p<-rasterToPoints(s, 
spatial=T)<br> pp<- 
rasterToPolygons(s,dissolve=F)<br> #spplot(pp)<br> # 
writeOGR(p,getwd(),"p2",driver="ESRI Shapefile")<br>  
writeOGR(pp,getwd(),"matriz_pl",driver="ESRI Shapefile")<br></div>Error: could not 
find function "writeOGR"<div class="im"><br> pescrito <- readOGR(getwd(), 
"matriz_pl")<br></div>Error: could not find function "readOGR"<br> <a href="mailto:pescrito@data" target="_blank">pescrito@data</a><br>Error: object 'pescrito' not 
found</font></div></div></blockquote></div></div></div>