Create Phi-Four Point Matrix Comparing R

Question

我有一系列二进制变量（A 到 F），我想在 Phi 点矩阵中进行比较。

       A     B    C      D     E    F
A    1.00                              
B   -0.20  1.00                        
C    0.82 -0.22  1.00                  
D   -0.22  0.22  0.65  1.00            
E    0.00 -0.18 -0.19  0.38  1.00      
F    0.41  0.00 -0.21  0.36  0.09  1.00

rcorr() 仅提供 Pearson 的 Spearman 和 Kendall 的相关系数

一直无法适应：

chisqmatrix <- function(x) {
  names = colnames(x);  num = length(names)
  m = matrix(nrow=num,ncol=num,dimnames=list(names,names))
  for (i in 1:(num-1)) {
    for (j in (i+1):num) {
      m[i,j] = chisq.test(x[,i],x[,j],)$p.value
    }
  }
  return (m)
}
mat = chisqmatrix(iris)

但这是建立在只有一列是分类变量的假设之上的。