r - 特定のケースでの R の outer() 関数のエラー

Question

次元が 942*50 の行列 X があります。Gaussian RBF Kernel でアフィニティ マトリックスを作成したいと考えています。つまり、X 行列の行のすべてのペアについて、exp(-sigma*norm(x_i-x_j)^2) を計算したいのですが、x_i と x_j は X 行列の行であり、i,j は 1:nrow(バツ）。私は R でコードを書いています。以下の R コードの一部でエラーが発生します。

library('kernlab')
rbf <- rbfdot(sigma=15.0563)
func <- function(i,j){return(rbf(X[i,],X[j,]))}
rows <- cols <- 1:nrow(X)
outer(rows,cols,FUN=func)

次のエラーが表示されます: Error in outer(rows, cols, FUN = fun) : dims [product 887364] do not match the length of object [2500]