r - R の行列の行に対する 2 レベルのループ

Question

以下の反復を行列演算に変換する必要があります。

a = certain_matrix(3,5)
mat = matrix(0, 3,3)

for ( i in 1:3 )
  for ( j in 1:3 )
    mat[i,j] = certain_distance(a[i,], a[j,])

おおよそ、apply() を使用する必要があります。ただし、行インデックスを取得できません

apply(a, 1, function(x) XXX)

では、その操作をすばやく実行するにはどうすればよいでしょうか。