小编mor*_*eza的帖子

我想通过列找到矩阵的频率.例如,对于下面的矩阵x

   x <- matrix(c(rep(1:4,3),rep(2:5,2)),4,5)
   x
         [,1] [,2] [,3] [,4] [,5]
   [1,]    1    1    1    2    2
   [2,]    2    2    2    3    3
   [3,]    3    3    3    4    4
   [4,]    4    4    4    5    5

现在如何找到每个唯一列的频率并创建一个矩阵,每列是x的唯一列,最后一行作为矩阵x的频率添加

 #freqmatrix
        [,1] [,2]
 [,1]      1  2
 [,2]      2  3
 [,3]      3  4
 [,4]      4  5
 [,5]      3  2

我想计算相关矩阵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或类似命令的东西来计算这种相关性.