Exercises with Statistics Tests 3

FRT[d_,v_]:=FisherRatioTest[#,v,"TestStatistic",
VerifyTestAssumptions -> None]&/@d;
d=RandomVariate[NormalDistribution[],{10^4,10^2}];
SmoothHistogram[{FRT[d,1],FRT[d,3]},ImageSize->500,
Filling->Axis,PlotStyle->{Blue,Red},GridLines->Automatic,
PlotLegends->{"H0 is True","H0 is False"}]