AnOVa1

procedure AnOVa1(

  Ns: Integer;

  N: TIntVector;

  M: TVector;

  S: TVector;

  var V_f: Float;

  var V_r: Float;

  var F: Float;

  var DoF_f: Integer;

  var DoF_r: Integer

);