如何将函数应用于数组的索引？

Question

我想使用数组元素的索引将函数应用于数组.例如,如果我有一个数组 ar,我想计算ar[x,y] <- x + y.

使用嵌套for for循环很容易.我想使用apply函数来完成此任务.

ar <- array(data = 1, dim = c(2,2))
for(i in 1:2 ){
  for(j in 1:2){
    ar[i,j] <- i +j
  }
}
ar

Answer 1

如果是二维数组或矩阵,你可以这样做:

row(ar) + col(ar)
#      [,1] [,2]
# [1,]    2    3
# [2,]    3    4