如何修改不同昏暗的功能？

Question

我有一个用于他的数据dim(1000*1000)的函数。我的数据相同，但dim (500*1300)不同。我怎样才能将函数调整到我的数据？

 image.arr = array(dim = c(1000, 1000, 20)))
 interpolated.lst = vector(mode = "list", length = 1000)
 system.time(
 {
    for(i in 1:1200){
        interpolated.lst[[i]] = 
            apply(image.arr[i, , ], 1,
                  FUN = function(x){
                      imageSpline(x = dates, y = x, xout = 1:365)$y
                  }
                  )
    }
}
)

Answer 1

代码使用apply遍历图像的行，因此只需要提供宽度。只需替换它：

interpolated.lst = vector(mode = "list", length = nrow(image.arr))

system.time(
    for(i in seq_len(nrow(image.arr))) {
        interpolated.lst[[i]] = 
            apply(image.arr[i, , ], 1,
                  FUN = function(x) imageSpline(x = dates, y = x, xout = 1:365)$y)
    })