行とcolインデックスの関数に等しい値を持つ行列を作成します。

Question

行インデックスとhe colインデックスの合計に等しいセル値を持つ6x6行列を作成しようとしています。私はループを使用してこれを行うことができますが、ベクトル関数を使用してこれを行う方法があるのだろうかと思います。

Answer 1

は "+" でouter機能を使用します。

outer(1:6, 1:6, "+") 

    [,1] [,2] [,3] [,4] [,5] [,6] 
[1,] 2 3 4 5 6 7 
[2,] 3 4 5 6 7 8 
[3,] 4 5 6 7 8 9 
[4,] 5 6 7 8 9 10 
[5,] 6 7 8 9 10 11 
[6,] 7 8 9 10 11 12 

ところで、これは基本的には、以下のベクトル化されたアプローチのためのショートカットです：

matrix(rep(1:6, 6) + rep(1:6, each = 6), nrow = 6) 

Answer 2

は、ここに別の可能性です：

m <- matrix(NA,6,6) 
m <- col(m)+row(m) 
#  [,1] [,2] [,3] [,4] [,5] [,6] 
#[1,] 2 3 4 5 6 7 
#[2,] 3 4 5 6 7 8 
#[3,] 4 5 6 7 8 9 
#[4,] 5 6 7 8 9 10 
#[5,] 6 7 8 9 10 11 
#[6,] 7 8 9 10 11 12