R：卡方在模拟的有序数据中没有检测到（甚至很大的）差异

Question

虽然尝试做一个关于如何分析序数数据的研讨会（以及为什么度量标准测试，例如t测试在这种情况下使用不好），我试图对模拟数据进行卡方检验R上。

然而，无论我有多大差异，我都无法通过以下方式发现这种差异：

chisq.test(data,data2)

当运行大量模拟时，只有约5％的p值低于0.05，表明没有真正的差异。

......这让我很困惑，因为我知道差异就在那里。

我的代码有什么问题吗？ https://pastebin.com/NtbJGpez

所有输入都非常受欢迎。