Eu preciso criar vários mosaicos raster. Estou usando o pacote raster versão 2.0-31 em um computador de 64 bits do windows. Acredito que fiz meu dever de casa verificando todos os blogs possíveis e fazendo essa pergunta para alguns colegas, mas ainda não consegui encontrar uma solução.

O problema que tenho é que não posso criar um mosaico se minhas grades estiverem listadas em um objeto raster. eu encontreieste exemplo que eu poderia aplicar, mas não, recebo uma mensagem de erro estranha. O exemplo abaixo representa o meu problema:

r <- raster()
r1 <- crop(r, extent(-10, 10, -10, 10))
r2 <- crop(r, extent(0, 20, 0, 20))
r3 <- crop(r, extent(10, 30, 10, 30))

r1[] <- 1:ncell(r1)
r2[] <- 1:ncell(r2)
r3[] <- 1:ncell(r3)
rasters1 <- list(r1, r2, r3)

mos <- mosaic(rasters1,fun=mean)

Este é o erro que recebo:

Error in function (classes, fdef, mtable)  : 
  unable to find an inherited method for function ‘mosaic’ for signature ‘"list", "missing"’

Eu também tentei a função sugerida emAqui, mas não funcionou também.

fmerge <- function(rasters1, fun, ...){
  ex <- raster(union(rasters1))
  res(ex) <- res(rasters1[[1]])
  for( i in 1:length(rasters1) )
    rasters[[i]] <- merge(rasters1[[i]], ex)
  rasters <- stack(rasters1)
  fun(rasters1, ...)
}

rfm <- fmerge(rasters1, mean, na.rm=T)

Esta é a mensagem de erro:

Error in raster(union(rasters1)) : 
  error in evaluating the argument 'x' in selecting a method for function 'raster': Error in as.vector(y) : argument "y" is missing, with no default