r - apply を使用して行列の相関行列を計算する

Question

各P [i、j]が行列データの行iと列jの相関係数である相関行列Pを計算したい。例えば

  Data <- matrix(rnorm(500),50,10)
  P <- matrix(0,50,50)
  for (i in 1:50) 
     for(j in 1:50)
        P[i,j] <- cor(Data[i,],Data[j,])

しかし、このような相関関係を計算するには、apply などのコマンドをどのように使用すればよいでしょうか。

Answer 1

データフレームまたはマトリックスで使用cor()して、列のすべてのペア間の相関の相関マトリックスを取得できます。

cor(t(Data))

あなたの質問とコードから、行のすべてのペアの相関関係または行と列の間の相関関係が必要かどうかは明確ではありませんが、行列が正方形ではないため、最初のものを想定しました。