来自chisq.test的p值矩阵

Question

如何从显示所有列名称的chisq.test创建p值矩阵。

我的获取p值的代码

test1 <- summary(xtabs(formula = Pass ~ gender + Dependents, data = TCC))
test1$p.value

test2 <- summary(xtabs(formula = Pass ~ gender + Partner, data = TCC))
test2$p.value

test3 <- summary(xtabs(formula = Pass ~ Dependents + Partner, data = TCC))
test3$p.value

所需的输出：

PASS        Gender     Partner     Dependents
Gender        0        0.0045        0.9182
Partner    0.0045        0           0.0126  
Dependents 0.9182      0.0126          0