Boa tarde Mauro,
Segue a função abaixo a uma simulação de um raster, como se fosse
uma imagem de satélite e o emprego da função radconvL():
require(raster)
require(sp)
# RasterLayer inventado
r <- raster(nrows=10, ncols=10)
r <- setValues(r, 1:ncell(r))
plot(r)
band2<- as(r,
f <- funcion(qualprimeiro) {
stopifnot(qualprimeiro %in% 1:2)
if (qualprimeiro == 1) {
f1()
f2()
} else {
f2()
f1()
}
}
--
Leonardo Ferreira Fontenelle
http://lattes.cnpq.br/9234772336296638
Em Dom 20 dez. 2015, às 13:26, Cleber N.Borges escreveu:
> olá a todos,
>