如何將函數應用於數組的索引？

Question

我想使用數組元素的索引將函數應用於數組。例如，如果我有一個數組 ar，我想計算ar[x,y] <- x + y。

使用嵌套for for循環很容易。我想用一個應用函數來完成這個任務。

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 

Answer 2

我們可以使用outer

outer(1:nrow(ar), 1:ncol(ar), FUN = `+`) 
#  [,1] [,2] 
#[1,] 2 3 
#[2,] 3 4