Mathematica（Wolfram）-卡方检验

Question

我想对一组随机数进行卡方拟合优度检验，最终目标是我要确定一组随机数是否是真正随机的，从而在卡方分析可以帮助验证任何结论的情况下我做。

例如，我在Mathematica中具有以下代码：

RandoInt101 = RandomInteger[9, 10];

Timing[Histogram[RandoInt101, {1}, PlotLabel -> "Histogram for n = 10", ImageSize -> Large]]

HistogramList[RandoInt101, {1}]

FrequencyData101 = {{0, 1, 2, 3, 4, 5, 6, 7, 8, 9}, {2/10, 0/10, 1/10,
2/10, 1/10, 0/10, 0/10, 1/10, 1/10, 2/10}}

PearsonChiSquareTest[RandoInt101]

示例输出为：

时间= 0.046875，并且 Histogram for 10 Random Numbers. 而且Pearson卡方检验产生的p值为0.221385，我不确定这是否是我要寻找的卡方平方值，并且在此10个随机数示例中，我不确定自由度。任何建议将不胜感激。谢谢。