使用r進行假設檢驗的輸出

Question

卡方測試結果的代碼段。

for (i in 8:ncol(aputanalysis))
{
  tmp <- chisq.test(table(aputanalysis[, i], aputanalysis[, 7]))
  print(chisq.test(table(aputanalysis[, i], aputanalysis[, 7])))
} 

結果是：

[1] 9.334636e-18

Pearson's Chi-squared test
data:  table(aputanalysis[, i], aputanalysis[, 7])
X-squared = 118.8, df = 16, p-value < 2.2e-16

我想顯示列名以及其他信息。

如何獲得列名以及p值，df和X平方？

Answer 1

如果只想打印使用的列的列名，則可以在現有的print（）語句之前添加以下內容：

print(paste("Now testing", colnames(aputanalysis[i]), "and",  colnames(aputanalysis[7])))

請注意，可以使用

tmp$data.name

這將打印table(aputanalysis[, i], aputanalysis[, 7])

但是，可以使用類似的方法覆蓋此信息

tmp$data.name <- paste("Test for", colnames(aputanalysis[i]), "and",  colnames(aputanalysis[7]))