插值栅格时间序列

Question

进行测试

F <- (1:7)

i <- 1
n <- F
for(i in 1:length(F)) {
    print((n[i] + n[i+1])/2)
}

## [ 1] 1.5 [1] 2.5 [1] 3.5 [1] 4.5 [1] 5.5 [1] 6.5 [1] NA

Descargar EVImodisimágenesqueson cada8díasytengoimágenesdeTemperatura cada16días，necesito que lasdosimágenessean16díasderesolucióntimporpor lo que tengo que interpolar los8díasygenerarrásterdurante16días。 Ahora lo haces con unalistaráster

现在使用光栅列表

rasterlist <- list.files(getwd(), pattern="tif$", full.names=FALSE)
i <- 1
n <- (rasterlist)
crop.list <- list() 
for (i in 1:length(rasterlist)) { 
    print(list.files (n[[i]] + n[[i+1]]/2))
}

给了我这个错误：

## Error in n[[i + 1]]/2 : non-numeric argument to binary operator