program BasicStats_test;

uses
  MatrixUnit;

var
  v: TDblVector;
  mu, variance, sig: Double;
begin
  SetLength(v, 5);
  v[0] := 1.2;
  v[1] := -4.3;
  v[2] := 5.9;
  v[3] := -9.6;
  v[4] := 5.3;

  VecMeanVarStdDev(v, mu, variance, sig);

  WriteLn('Mean:     ', mu:10:3);
  WriteLn('Variance: ', variance:10:3);
  WriteLn('Std.Dev.: ', sig:10:3);

  ReadLn;

end.