Как применить функцию к индексам массива?

Question

Я хочу применить функцию к массиву, используя индексы элемента массива. Например, если у меня есть массив ar, я хотел бы вычислить ar[x,y] <- x + y.

Использование вложенных для циклов это легко. Я хочу использовать функцию 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