Новое в системе Wolfram
Mathematica
8: Оценивание параметров распределений и проверка статистических гипотез
◄
предыдущая
|
следующая
►
Основные алгоритмы
Сравнение статистики многомерного критерия знаков
Многомерные данные могут быть преобразованы в вектора направлений масштабированием каждой точки её евклидовой нормой. Статистика многомерного критерия знаков растёт, если распределение векторов направлений на единичной сфере неравномерно.
In[1]:=
X
data = Table[ RandomVariate[ MultinormalDistribution[{a, -.5 a, a}, IdentityMatrix[3]], 500], {a, {0, 1, 2, 4}}];
In[2]:=
X
sPointPlot[data_] := Show[Graphics3D[{Directive[Yellow, Specularity[White, 20]], Sphere[{0, 0, 0}]}], ListPointPlot3D[Normalize /@ data, PlotRange -> {{-1, 1}, {-1, 1}, {-1, 1}}], Boxed -> False, PlotLabel -> Style[Text[SignTest[data, 0, "TestStatistic"]], Bold, GrayLevel[.4], FontSize -> 24], Background -> GrayLevel[0]] GraphicsGrid[Partition[sPointPlot /@ data, 2]]
Out[2]=