배열의 인덱스에 함수를 적용하려면 어떻게해야합니까?

Question

배열 요소의 인덱스를 사용하여 배열에 함수를 적용하려고합니다. 예를 들어 배열이 ar 인 경우 ar[x,y] <- x + y을 계산하고 싶습니다.

for 루프에 중첩을 사용하면 쉽습니다. 적용 기능을 사용하여이 태스크를 완료하려고합니다. 그것은 2 차원 배열, 또는 매트릭스 인 경우

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