r - 用 apply 计算矩阵的相关矩阵

Question

我想计算相关矩阵 P，其中每个 P[i,j] 是矩阵 Data 中第 i 行和第 j 行的相关系数。例如

  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))

从您的问题和代码中，不清楚您是否想要所有行对的相关性或行和列之间的相关性，但由于矩阵不是正方形，我假设第一个。