<html>
<head>
<meta content="text/html; charset=ISO-8859-1"
http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Éder,<br>
<br>
Queria também extrair o valor dos pixels e adicionei a
rotina, vou deixar o scrip para depósito na lista,<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>
<br>
cells <- cellFromXY(r, pontos); cells<br>
coordinates(r)[cells,] ## alternativa 1<br>
p.cen <- xyFromCell(r, cells); p.cen ## alternativa2<br>
<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,values)<br>
dados<br>
### </code><br>
<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>
<br>
<br>
<div class="moz-cite-prefix">Em 16/01/2014 21:45, Éder Comunello
escreveu:<br>
</div>
<blockquote
cite="mid:CABmC8gmrRMS+Cu4xbcZWnSHGn-xAyYJGngy5185iTXoYjQzsjg@mail.gmail.com"
type="cite">
<div dir="ltr">
<div>Alexandre,</div>
<div><br>
</div>
<div>Pelo que entendi você quer a coordenada do centro do
pixel/célula identificado. Se for isso mesmo posso sugerir
duas opções, conforme código abaixo:</div>
<div><br>
</div>
<font face="courier new, monospace">### <code r><br>
</font>
<div>
<div><font face="courier new, monospace">require(raster);
require(sp)</font></div>
<div><font face="courier new, monospace"><br>
</font></div>
<div><font face="courier new, monospace">## Criando um raster</font></div>
<div><font face="courier new, monospace">r <- raster(nc=10,
nr=10)</font></div>
<div><font face="courier new, monospace">r <- setValues(r,
round(runif(ncell(r))* 255))</font></div>
<div><font face="courier new, monospace"><br>
</font></div>
<div><font face="courier new, monospace">##Pontos selecionados</font></div>
<div><font face="courier new, monospace">x <-
c(44.25,33.06,63.22,71.35)</font></div>
<div><font face="courier new, monospace">y <-
c(22.00,81.90,15.18,71.03)</font></div>
<div><font face="courier new, monospace">pontos <-
SpatialPoints(cbind(x,y))</font></div>
<div><font face="courier new, monospace"><br>
</font></div>
<div><font face="courier new, monospace">cells <-
cellFromXY(r, pontos); cells</font></div>
<div><font face="courier new, monospace">coordinates(r)[cells,]
## alternativa 1</font></div>
<div><font face="courier new, monospace">p.cen <-
xyFromCell(r, cells); p.cen ## alternativa2</font></div>
<div><font face="courier new, monospace"><br>
</font></div>
<div><font face="courier new, monospace">plot(r)</font></div>
<div><font face="courier new, monospace">points(pontos,
col="red")</font></div>
<div><font face="courier new, monospace">points(p.cen)</font></div>
</div>
<div><font face="courier new, monospace">### </code></font></div>
<div><br>
</div>
<div class="gmail_extra"><br clear="all">
<div>
<div dir="ltr">Éder Comunello <<a moz-do-not-send="true"
href="mailto:comunello.eder@gmail.com" target="_blank">c</a><a
moz-do-not-send="true"
href="mailto:omunello.eder@gmail.com" target="_blank">omunello.eder@gmail.com</a>>
<br>
Dourados, MS - [22 16.5'S, 54 49'W]<br>
</div>
</div>
<br>
<br>
<div class="gmail_quote"><br>
</div>
</div>
</div>
<br>
<fieldset class="mimeAttachmentHeader"></fieldset>
<br>
<pre wrap="">_______________________________________________
R-br mailing list
<a class="moz-txt-link-abbreviated" href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a>
<a class="moz-txt-link-freetext" href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a>
Leia o guia de postagem (<a class="moz-txt-link-freetext" href="http://www.leg.ufpr.br/r-br-guia">http://www.leg.ufpr.br/r-br-guia</a>) e forneça código mínimo reproduzível.</pre>
</blockquote>
<br>
<pre class="moz-signature" cols="72">
</pre>
</body>
</html>