Perform Tests of Location and Scale Simultaneously on Multiple Datasets
Test tables resulting from a comparison of population locations and scale parameters, respectively.
data = BlockRandom[SeedRandom[4];
MapThread[RandomVariate[NormalDistribution[#1, #2], 100]&, {RandomReal[{-1, 1}, 6], RandomReal[{1.5, 2}, 6]}]];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}];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}]