<html>
<head>
<meta content="text/html; charset=UTF-8" http-equiv="Content-Type">
</head>
<body text="#000000" bgcolor="#FFFFFF">
Obrigado Thiago, <br>
mas nenhumas das duas sugestões funcionou não, sendo:<br>
<br>
require(raster)<br>
require(rgdal)<br>
require(sp)<br>
#Criando raster<br>
r <- raster(nc=1000, nr=1000)<br>
set.seed(20130622)<br>
stackIm1 <- stack(lapply(1, function(x) setValues(r,<br>
+ round(runif(ncell(r))* 255))))## Simulation red band<br>
#<br>
# Definindo sistema de projeção<br>
r.geo <- CRS("+proj=utm +zone=23 +south +datum=WGS84 +units=m<br>
+ +no_defs") # geographical datum WGS84<br>
proj4string(stackIm1) <- r.geo<br>
#pelo project raster<br>
> newproj <- "+proj=longlat +datum=WGS84"<br>
#Nova projeção<br>
stackIm1ll <- projectRaster(stackIm1, crs=newproj)<br>
Erro em if (value[1] != nrow(x) | value[2] != ncol(x)) { : <br>
valor ausente onde TRUE/FALSE necessário<br>
Além disso: Mensagens de aviso perdidas:<br>
In `dim<-`(`*tmp*`, value = c(nr, nc)) : NAs introduzidos por
coerção<br>
<br>
<br>
Li alguns posts, mas sempre o caminho é bem árduo, busco uma solução
simples, de qualquer maneira obrigado,<br>
<br>
<br>
<br>
Alexandre<br>
<br>
<br>
<br>
<br>
<br>
<div class="moz-cite-prefix">Em 17/07/2013 16:04, Thiago V. dos
Santos escreveu:<br>
</div>
<blockquote
cite="mid:1374091484.97622.YahooMailNeo@web121901.mail.ne1.yahoo.com"
type="cite">
<div style="color:#000; background-color:#fff; font-family:times
new roman, new york, times, serif;font-size:12pt">
<div><span>Alexandre,</span></div>
<div style="color: rgb(0, 0, 0); font-size: 16px; font-family:
'times new roman', 'new york', times, serif; background-color:
transparent; font-style: normal;"><span><br>
</span></div>
<div style="color: rgb(0, 0, 0); font-size: 16px; font-family:
'times new roman', 'new york', times, serif; background-color:
transparent; font-style: normal;"><span>Parece ser um typo.
Experimente adicionar um espaço entre proj e datum: '</span><span
style="font-size: 12pt;">+proj=longlat +datum=WGS84'.</span></div>
<div style="color: rgb(0, 0, 0); font-size: 12pt; font-family:
'times new roman', 'new york', times, serif; background-color:
transparent; font-style: normal;"><span style="font-size:
12pt;"><br>
</span></div>
<div style="color: rgb(0, 0, 0); font-size: 16px; font-family:
'times new roman', 'new york', times, serif; background-color:
transparent; font-style: normal;"><span style="font-size:
12pt;">Uma abordagem alternativa é usar projectRaster, do
próprio pacote raster.</span></div>
<div> </div>
<div>Saudações,<br>
--<br>
Thiago V. dos Santos<br>
PhD student<br>
Land and Atmospheric Science<br>
University of Minnesota<br>
<a class="moz-txt-link-freetext" href="http://www.laas.umn.edu/CurrentStudents/MeettheStudents/ThiagodosSantos/index.htm">http://www.laas.umn.edu/CurrentStudents/MeettheStudents/ThiagodosSantos/index.htm</a><br>
Phone: (612) 323 9898<br>
</div>
<div style="font-family: 'times new roman', 'new york', times,
serif; font-size: 12pt;">
<div style="font-family: 'times new roman', 'new york', times,
serif; font-size: 12pt;">
<div dir="ltr">
<hr size="1"> <font size="2" face="Arial"> <b><span
style="font-weight:bold;">From:</span></b> ASANTOS
<a class="moz-txt-link-rfc2396E" href="mailto:alexandresantosbr@yahoo.com.br"><alexandresantosbr@yahoo.com.br></a><br>
<b><span style="font-weight: bold;">To:</span></b>
<a class="moz-txt-link-abbreviated" href="mailto:r-br@listas.c3sl.ufpr.br">r-br@listas.c3sl.ufpr.br</a> <br>
<b><span style="font-weight: bold;">Sent:</span></b>
Wednesday, July 17, 2013 1:00 PM<br>
<b><span style="font-weight: bold;">Subject:</span></b>
[R-br] Problema para mudar projeção em um raster<br>
</font> </div>
<div class="y_msg_container"><br>
Boa tarde Pessoal,<br>
<br>
Criei um raster e referencie em UTM sendo:<br>
<br>
require(raster)<br>
require(rgdal)<br>
require(sp)<br>
#Criando raster<br>
r <- raster(nc=1000, nr=1000)<br>
set.seed(20130622)<br>
stackIm1 <- stack(lapply(1, function(x) setValues(r, <br>
round(runif(ncell(r))* 255))))## Simulation red band<br>
#<br>
# Definindo sistema de projeção<br>
r.geo <- CRS("+proj=utm +zone=23 +south +datum=WGS84
+units=m <br>
+no_defs") # geographical datum WGS84<br>
proj4string(stackIm1) <- r.geo<br>
#<br>
<br>
mas quando tento converter para latlong com spTransform:<br>
<br>
stackIm1.ll<-spTransform(stackIm1,
CRS("+proj=longlat+datum=WGS84"))<br>
<br>
<br>
Erro em spTransform(stackIm1,
CRS("+proj=longlat+datum=WGS84")) :<br>
erro na avaliação do argumento 'CRSobj' na seleção do
método para a <br>
função 'spTransform': 'Erro em
CRS("+proj=longlat+datum=WGS84") : <br>
unknown projection id<br>
<br>
Obtenho este erro e não consigo achar a solução, alguém
poderia dar um help,<br>
<br>
Obrigado<br>
<br>
-- <br>
======================================================================<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: (+55) 65 8132-8112 (TIM) (+55) 65 9686-6970 (VIVO)<br>
e-mails:<a moz-do-not-send="true"
ymailto="mailto:alexandresantosbr@yahoo.com.br"
href="mailto:alexandresantosbr@yahoo.com.br">alexandresantosbr@yahoo.com.br</a><br>
<a moz-do-not-send="true"
ymailto="mailto:alexandre.santos@cas.ifmt.edu.br"
href="mailto:alexandre.santos@cas.ifmt.edu.br">alexandre.santos@cas.ifmt.edu.br</a><br>
Lattes: <a moz-do-not-send="true"
href="http://lattes.cnpq.br/1360403201088680"
target="_blank">http://lattes.cnpq.br/1360403201088680</a><br>
======================================================================<br>
<br>
_______________________________________________<br>
R-br mailing list<br>
<a moz-do-not-send="true"
ymailto="mailto:R-br@listas.c3sl.ufpr.br"
href="mailto:R-br@listas.c3sl.ufpr.br">R-br@listas.c3sl.ufpr.br</a><br>
<a moz-do-not-send="true"
href="https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br"
target="_blank">https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br</a><br>
Leia o guia de postagem (<a moz-do-not-send="true"
href="http://www.leg.ufpr.br/r-br-guia" target="_blank">http://www.leg.ufpr.br/r-br-guia</a>)
e forneça código mínimo reproduzível.<br>
<br>
</div>
</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">--
======================================================================
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>