ChiSquarePowerNCCSapproxMC.nb

In[1]:=

$q = Sum[(p[[j]] - p0[[j]])^2/p0[[j]], {j, 1, Length[p]}] $

$CSStatist[n_Integer, p0_, p_] := {x = Random[MultN[n, p]] ; Q = Sum[(x[[j]] - n * p0[[j]])^2/(n * p0[[j]]), {j, 1, Length[p0]}]} <br />$

$DE[x_] := Table[{Delta[zz[[i]] - x]}, {i, 1, nn}]$

P2 = Plot[CSTPow[2, 100/8, x], {x, 0, 40}] 

Out[5]=

Out[10]=

Out[11]=

Out[12]=

[Graphics:HTMLFiles/ChiSquarePowerNCCSapproxMC_42.gif]

Out[19]=

[Graphics:HTMLFiles/ChiSquarePowerNCCSapproxMC_44.gif]

Out[24]=

Out[26]=

[Graphics:HTMLFiles/ChiSquarePowerNCCSapproxMC_47.gif]

Out[30]=

[Graphics:HTMLFiles/ChiSquarePowerNCCSapproxMC_49.gif]

Out[31]=

Out[32]=

Out[33]=

Out[34]=

Out[35]=

Out[36]=

{Mean18163/1250, HarmonicMean17602962323206483126970821300328672232689561266 ... 17296313587206988834747199381749288140020945781369553304096338951678933474831, Median14}

Out[37]=

${Variance352512873/6248750, StandardDeviation (3 39168097/9998^(1/2))/25, Sa ... viation18655713/3125000, MedianDeviation261/50, QuartileDeviation261/50}$

Created by Mathematica (October 21, 2005)