Exercises with Statistics Tests 2

NDV=RandomVariate[NormalDistribution[0.,2.],10^3];
ListLinePlot[NDV,ImageSize->600,PlotLabel->Variance[NDV]]
{TableForm[Table[FisherRatioTest[NDV,4.5,p],
{p,{"TestConclusion","TestDataTable"}}] ],
TableForm[Table[FisherRatioTest[NDV,4.5,p,
AlternativeHypothesis ->"Greater"],
{p,{"TestConclusion","TestDataTable"}}]]}