Algoritmos de núcleo

Realice pruebas de ubicación y de escala para cualquier número de conjuntos de datos simultáneamente 

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]=