配列のインデックスに関数を適用するにはどうすればよいですか？

Question

配列要素のインデックスを使用して配列に関数を適用したいとします。たとえば、配列がある場合 ar、私はar[x,y] <- x + yを計算したいと思います。

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 

Answer 2

我々はouter

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