<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Helio e Éder,<br>
<br>
Problema resolvido,<br>
<br>
<br>
<br>
<div class="moz-cite-prefix">Em 28/12/2013 15:32, Hélio Gallo Rocha
escreveu:<br>
</div>
<blockquote
cite="mid:CA+ppPW71ce2oN2EcBhT5jGynHnq22+=-u6eGzTdWp=5E12HzNA@mail.gmail.com"
type="cite">
<div class="gmail_extra">### <code r<font face="courier new,
monospace">></font></div>
<div class="im">
<div class="gmail_extra"><font face="courier new, monospace">require(sp);
require(rgdal); require(raster)</font></div>
<div class="gmail_extra"><font face="courier new, monospace"><br>
</font></div>
<div class="gmail_extra"><font face="courier new, monospace">##
Raster-----------------------------------------------------------</font></div>
<div class="gmail_extra">
<font face="courier new, monospace">set.seed(20131226)</font></div>
<div class="gmail_extra"><font face="courier new, monospace">r
<- raster(nc=100, nr=100)</font></div>
<div class="gmail_extra"><font face="courier new, monospace">r
<- setValues(r, round(runif(ncell(r))* 255))</font></div>
<div class="gmail_extra"><font face="courier new, monospace">image(r,col=gray(seq(0,1,0.025)))</font></div>
<div class="gmail_extra"><font face="courier new, monospace"><br>
</font></div>
<div class="gmail_extra"><font face="courier new, monospace">##
Borda
-----------------------------------------------------------</font></div>
<div class="gmail_extra"><font face="courier new, monospace">x<-c(-125,-100,0,100,-125)</font></div>
<div class="gmail_extra"><font face="courier new, monospace">y<-c(-49,25,0,-50,-49)</font></div>
<div class="gmail_extra">
<font face="courier new, monospace">limite<-cbind(x,y)</font></div>
<div class="gmail_extra"><font face="courier new, monospace">lines(limite,
col="yellow")</font></div>
<div class="gmail_extra"><font face="courier new, monospace">##</font></div>
<div class="gmail_extra"><font face="courier new, monospace"><br>
</font></div>
<div class="gmail_extra"><font face="courier new, monospace">##
Converte borda para SpatialPolygon</font></div>
<div class="gmail_extra"><font face="courier new, monospace">spt.borda
<- SpatialPolygons(list(Polygons(list(Polygon(limite)),
"1")))</font></div>
<div class="gmail_extra"><font face="courier new, monospace"><br>
</font></div>
<div class="gmail_extra"><font face="courier new, monospace">###
Recorte do raster contido no interior da borda</font></div>
<div class="gmail_extra">
<font face="courier new, monospace">r.crop <- crop(r,
spt.borda, snap='out')</font></div>
<div class="gmail_extra"><font face="courier new, monospace">image(r.crop,
asp=1)</font></div>
<div class="gmail_extra"><font face="courier new, monospace"><br>
</font></div>
</div>
<div class="gmail_extra"><font face="courier new, monospace">###
Recorte com polígono irregular! </font></div>
<div class="gmail_extra"><font face="courier new, monospace">r.masked
<- mask(r.crop, spt.borda)</font></div>
<div class="gmail_extra"><font face="courier new, monospace">image(r.masked,
asp=1)</font></div>
<div class="gmail_extra"><font face="courier new, monospace">###
</code></font></div>
</blockquote>
<br>
<pre class="moz-signature" cols="72">--
======================================================================
Alexandre dos Santos
Proteção Florestal
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso
Campus Cáceres
Caixa Postal 244
Avenida dos Ramires, s/n
Bairro: Distrito Industrial
Cáceres - MT CEP: 78.200-000
Fone: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)
<a class="moz-txt-link-abbreviated" href="mailto:e-mails:alexandresantosbr@yahoo.com.br">e-mails:alexandresantosbr@yahoo.com.br</a>
<a class="moz-txt-link-abbreviated" href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a>
Lattes: <a class="moz-txt-link-freetext" href="http://lattes.cnpq.br/1360403201088680">http://lattes.cnpq.br/1360403201088680</a>
======================================================================
</pre>
</body>
</html>