копировать растры в стеке

Question

Я бы хотел, чтобы каждый раз, каждые 3 дня, можно было использовать растительные раскирители влаги, доступные в день. Я делаю стопку каждого и перепродажу до соответствующего разрешения. Теперь, чтобы легко сравнить стеки, было бы неплохо иметь возможность копировать каждый слой в слой влаги почвы и вставлять его рядом с собой дважды. Это в основном тот же вопрос, что и Stacking an existing RasterStack multiple times , за исключением того, что мне нужен большой стек для сортировки, чтобы все растры находились во времени. Есть ли способ сделать это?

(я знаю, что я мог бы скопировать файлы перед укладкой их в 1-й раз, но для этого потребуется передискретизации 3x стек. Поскольку передискретизации является медленная часть моего сценария, должно быть лучше.)

Answer 1

Что-то вроде этого?

# example data 
r <- raster(ncol=10, nrow=10) 
r[]=1:ncell(r) 
x <- brick(r,r,r,r,r,r) 
x <- x * 1:6 

y <- list() 
for (i in 1:nlayers(x)) { 
    r <- raster(x, i) 
    y <- c(y, r, r, r) 
} 
s <- stack(y)