Elias,
Obrigado, mas cortei um pedaço das bordas e deixei os valores
positivos e mesmo assim:
Erro em if (value[1] != nrow(x) | value[2] != ncol(x)) { :
valor ausente onde TRUE/FALSE necessário
Além disso: Mensagens de aviso perdidas:
In `dim<-`(`*tmp*`, value = c(nr, nc)) : NAs introduzidos por coerção
Segue CRM:
require(raster)
require(rgdal)
require(sp)
#Criando raster
r <- raster(nc=1000, nr=1000)
r[] <- 1:ncell(r)
e <- extent(0, 90, 0, 90)
stackIm1.crop <- crop(r, e)
set.seed(20130622)
stackIm1 <- stack(lapply(1, function(x) setValues(stackIm1.crop,
+ round(runif(ncell(stackIm1.crop))* 255))))##
#
# Definindo sistema de projeção
r.geo <- CRS("+proj=utm +zone=23 +south +datum=WGS84 +units=m
+ +no_defs") # geographical datum WGS84
proj4string(stackIm1) <- r.geo
#pelo project raster
newproj <- "+proj=longlat +datum=WGS84"
#Nova projeção
stackIm1ll <- projectRaster(stackIm1, crs=newproj)
Alexandre
Em 18/07/2013 09:15, Elias Krainski escreveu:
Quando vc faz
r <- raster(nc=1000, nr=1000)
cria-se um raster com bordas:
bbox(r)
totalmente incompatíveis com "+proj=utm +zone=23 +south +datum=WGS84
+units=m"
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça
código mínimo reproduzível.
--
======================================================================
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)
e-mails:[email protected]
[email protected]
Lattes: http://lattes.cnpq.br/1360403201088680
======================================================================
_______________________________________________
R-br mailing list
[email protected]
https://listas.inf.ufpr.br/cgi-bin/mailman/listinfo/r-br
Leia o guia de postagem (http://www.leg.ufpr.br/r-br-guia) e forneça código
mínimo reproduzível.
