Anonymous user
Verify distribution uniformity/Chi-squared test: Difference between revisions
Verify distribution uniformity/Chi-squared test (view source)
Revision as of 03:58, 5 January 2013
, 11 years ago→{{header|Mathematica}}
Line 421:
Block[{v, k = max - min, n = Length@data},
v = (k + 1) (Plus @@ (((Length /@ Split[Sort@data]))^2))/n - n;
GammaRegularized[k/2, 0, v/2] <= 1 - confLevel]]
discreteUniformDistributionQ[data_] :=discreteUniformDistributionQ[data, data[[Ordering[data][[{1, -1}]]]]]</lang>
code used to create test data requires Mathematica version 6 or later
<lang Mathematica>uniformData = RandomInteger[10, 100];
nonUniformData = Total@RandomInteger[10, {5, 100}];</lang>
<lang Mathematica>{discreteUniformDistributionQ[uniformData
{{out}}<pre>{True,False}</pre>
|