Новое в системе Wolfram
Mathematica
8: Оценивание параметров распределений и проверка статистических гипотез
◄
предыдущая
|
следующая
►
Основные алгоритмы
Тесты соотношений коэффициентов сдвига и масштаба для произвольного количества наборов данных
Сводки тестовых статистик, полученных в результате сравнения коэффициентов сдвига и масштаба соответственно.
In[1]:=
X
data = BlockRandom[SeedRandom[4]; MapThread[ RandomVariate[NormalDistribution[#1, #2], 100] &, {RandomReal[{-1, 1}, 6], RandomReal[{1.5, 2}, 6]}]];
In[2]:=
X
chrtAll = BoxWhiskerChart[data, "Notched", ChartLabels -> {1, 2, 3, Text[Style["4", Bold, FontSize -> 12, Underlined]], 5, Text[Style["6", Bold, FontSize -> 12, Underlined]]}, ChartElementFunction -> "GlassBoxWhisker", ChartStyle -> "SolarColors", ImageSize -> 250]; chrt2 = DistributionChart[data, ChartStyle -> "SolarColors", ImageSize -> 250, ChartElementFunction -> "PointDensity", ChartLabels -> {Text[Style["1", Bold, FontSize -> 12, Underlined]], 2, Text[Style["3", Bold, FontSize -> 12, Underlined]], 4, 5, 6}];
In[3]:=
X
lt = LocationTest[{data[[1]], data[[3]]}, Automatic, {"TestDataTable", All}]; vt = VarianceEquivalenceTest[{data[[4]], data[[6]]}, {"TestDataTable", All}]; Grid[{{lt, chrt2}, {chrtAll, vt}}, Spacings -> {0, 0}]
Out[3]=