procedure BartlettReport;
var NumDim,i: Integer;
  SignifVec: Vector;
  Data: Matrix;
begin
  // Bartlett test for dimensionality
  Data.LoadFromFile('c:tempdata.mtx'); // load test data
  BartlettTest(Data,NumDim,SignifVec); // Alpha = 5 %
  // returns NumDim and SignifVec
end;

#include "MtxVec.hpp"
#include "MtxExpr.hpp"
#include "Statistics.hpp"
void __fastcall Example()
{
  sMatrix data;
  sVector signifVec;
  int numdim;
  data.LoadFromFile("c:\temp\data.mtx"); // load test data
  BartlettTest(data, numdim, signifVec,0.05); // Alpha = 5%
  // returns NumDim and SignifVec
}