<div dir="ltr"><div>Talvez ajude<br><br>valores=t(matrix(r$layer[,],10,10))<br><br><br><br></div><div><br><br><br></div><br></div><div class="gmail_extra"><br clear="all"><div><div class="gmail_signature">Tito Conte<br><br></div></div>
<br><div class="gmail_quote">Em 1 de fevereiro de 2015 23:48, ASANTOS <span dir="ltr"><<a href="mailto:alexandresantosbr@yahoo.com.br" target="_blank">alexandresantosbr@yahoo.com.br</a>></span> escreveu:<br><blockquote class="gmail_quote" style="margin:0 0 0 .8ex;border-left:1px #ccc solid;padding-left:1ex"><br>
Caros Listeiros,<br>
<br>
          Fiz a seleção da coordenada dos pixels (p.cen) em um raster<br>
que continham pontos de interesse (pontos) no CRM abaixo, gostaria de<br>
saber como impor uma condição para selecionar as coordenadas dos pixels<br>
que não contém nenhum ponto. Tentei criar um novo objeto com todas as<br>
coordenadas no raster e remover as coordenadas p.cen sem sucesso, alguém<br>
poderia me ajudar? Obrigado,<br>
<br>
### <code r><br>
require(raster); require(sp)<br>
<br>
## Criando um raster<br>
r <- raster(nc=10, nr=10)<br>
r <- setValues(r, round(runif(ncell(r))* 255))<br>
<br>
##Pontos selecionados<br>
x     <- c(44.25,33.06,63.22,71.35)<br>
y     <- c(22.00,81.90,15.18,71.03)<br>
pontos <- SpatialPoints(cbind(x,y))<br>
cells <- cellFromXY(r, pontos); cells<br>
coordinates(r)[cells,]<br>
p.cen <- xyFromCell(r, cells); p.cen<br>
plot(r)<br>
points(pontos, col="red")<br>
points(p.cen)<br>
values <- extract(r,p.cen) ##Extrai as coordendas<br>
dados<-cbind(p.cen,cells,<u></u>values)<br>
dados<br>
### </code><br>
<br>
-- <br>
==============================<u></u>==============================<u></u>==========<br>
Alexandre dos Santos<br>
Proteção Florestal<br>
IFMT - Instituto Federal de Educação, Ciência e Tecnologia de Mato Grosso<br>
Campus Cáceres<br>
Caixa Postal 244<br>
Avenida dos Ramires, s/n<br>
Bairro: Distrito Industrial<br>
Cáceres - MT                      CEP: 78.200-000<br>
Fone: <a href="tel:%28%2B55%29%2065%208132-8112" value="+556581328112" target="_blank">(+55) 65 8132-8112</a> (TIM)   <a href="tel:%28%2B55%29%2065%209686-6970" value="+556596866970" target="_blank">(+55) 65 9686-6970</a> (VIVO)<br>
<a href="mailto:e-mails%3Aalexandresantosbr@yahoo.com.br" target="_blank">e-mails:alexandresantosbr@<u></u>yahoo.com.br</a><br>
        <a href="mailto:alexandre.santos@cas.ifmt.edu.br" target="_blank">alexandre.santos@cas.ifmt.edu.<u></u>br</a><br>
Lattes: <a href="http://lattes.cnpq.br/1360403201088680" target="_blank">http://lattes.cnpq.br/<u></u>1360403201088680</a><br>
==============================<u></u>==============================<u></u>==========<br>
<br>
<br>
<br>
<br>
---<br>
Este email foi escaneado pelo Avast antivírus.<br>
<a href="http://www.avast.com" target="_blank">http://www.avast.com</a><br>
<br>
______________________________<u></u>_________________<br>
R-br mailing list<br>
<a href="mailto:R-br@listas.c3sl.ufpr.br" target="_blank">R-br@listas.c3sl.ufpr.br</a><br>
<a href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br" target="_blank">https://listas.inf.ufpr.br/<u></u>cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-<u></u>guia</a>) e forneça código mínimo reproduzível.<br>
</blockquote></div><br></div>