Итерация по разным измерениям массива

Question

Я новичок в R, и я знаю, что, если это возможно, лучше использовать встроенную функцию вместо l oop и других подобных вещей. Поэтому я хотел бы знать, является ли их способ с помощью функции «apply ()» или других, чтобы сделать следующее l oop.

arr1 <- array(data=rnorm(255,0,1),dim=list(5,5,9))
arr2 <- array(data=apply(arr1,3,function(x)mean(x)),dim=list(9))
var <- array(dim=list(5,5,9))

for(i in 1:9){
    var[,,i] <- arr1[,,i]-arr2[i]
}

Спасибо

"" " "" Изменить "" "" Я изменяю код, чтобы сделать его работоспособным, как предложено, и изменяю "var"

Answer 1

Одним из решений может быть:

abind:::abind(lapply(1:dim(arr2), function(x) arr1[,,x]-arr2[x]), along = 3)