用apply来计算矩阵的相关矩阵

Question

我想计算相关矩阵P，其中每个P [i，j]是矩阵Data中的行i和col 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))

根据您的问题和代码，您不清楚是否需要对所有行对或行与列之间的相关性进行相关，但由于矩阵不是正方形，因此我假定第一行。