Новое в системе Wolfram
Mathematica
8: Оценивание параметров распределений и проверка статистических гипотез
◄
предыдущая
|
следующая
►
Основные алгоритмы
Симулирование, визуализация и сравнение кривых мощностей для критериев проверки гипотезы о средних совокупностях
Визуальное сравнение эмпирических мощностей различных критериев проверки гипотезы о средних совокупностях как функций истинного среднего
.
In[1]:=
X
data = RandomVariate[NormalDistribution[], {500, 50}];
In[2]:=
X
tests = {"T", "Z", "SignedRank", "Sign"}; alts = {"Less", "Unequal", "Greater"}; res = Table[(Quiet@ LocationTest[#1, 0, i, AlternativeHypothesis -> j, VerifyTestAssumptions -> None] &) /@ data, {i, tests}, {j, alts}]; m = Mean /@ data; Grid[Join[{Map[ Style[#, Bold, FontFamily -> "Verdana"] &, {"", "\!\(\*SubscriptBox[\(H\), \(A\)]\): \[Mu] < \!\(\*SubscriptBox[\ \(\[Mu]\), \(0\)]\)", "\!\(\*SubscriptBox[\(H\), \(A\)]\): \[Mu] \[NotEqual] \ \!\(\*SubscriptBox[\(\[Mu]\), \(0\)]\)", "\!\(\*SubscriptBox[\(H\), \(A\)]\): \[Mu] > \!\(\*SubscriptBox[\ \(\[Mu]\), \(0\)]\)"}]}, Join[Partition[ Thread[Rotate[ Map[Style[#, Bold, FontFamily -> "Verdana"] &, {"t", "z", "signed rank", "sign"}], \[Pi]/2]], 1], Table[ListPlot[Transpose[{m, res[[i, j]]}], FrameTicks -> None, Frame -> True, PlotRange -> {{-.5, .5}, {0, 1}}, PlotStyle -> Hue[.992, .7, .7]], {i, 4}, {j, 3}], 2]], Spacings -> {.25, .25}]
Out[2]=