r - 无法在 R 中重现卡方检验结果

Question

我想在 R 中使用 chisq.test() 函数。我在 wiki 书籍“GNU R”上找到了一个用于测试的示例。代码和输出是：

x <- matrix(c(13,15,58,67),2,2)                           
chisq.test(x)

Pearson's Chi-squared test with Yates' continuity correction

data:  x 
X-squared = 0.0428, df = 1, p-value = 0.8361

所以我试图重现这个例子并得到了这个：

x <- matrix(c(13,15,58,67),2,2) 
chisq.test(x)

Pearson's Chi-squared test with Yates' continuity correction

data:  x
X-squared = 4.06e-31, df = 1, p-value = 1

结果不同的原因是什么？我使用了完全相同的代码。我做错什么了吗？谢谢您的帮助！