Exercises with Statistics Tests

ND=RandomVariate[NormalDistribution[],{2,2*10^2}];
ListLinePlot[ND,Filling->Axis,ImageSize->600,
PlotStyle->{LightBlue,LightGray},GridLines->Automatic]
TableForm[Table[FisherRatioTest[ND,Automatic,p],
{p,{"HypothesisTestData","TestConclusion","TestDataTable"}}]]