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 R-br@listas.c3sl.ufpr.br 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:alexandresantosbr@yahoo.com.br alexandre.santos@cas.ifmt.edu.br Lattes: http://lattes.cnpq.br/1360403201088680 ======================================================================