Uses MtxExpr, Regress, Math387;
procedure Example;
var y,berr: Vector;
  beta: Vector;
  A: Matrix;
  dev: double;
  df: Integer;
begin
  y.SetIt(false,[1,2,3,4]);
  A.SetIt(4,2,false,[1,5,2,6,3,7,4,8]);
  PoissonRegress(y,A,Beta,berr,dev,df);
end;

#include "MtxExpr.hpp"
#include "Regress.hpp"
#include "Math387.hpp"
void __fastcall Example()
{
  sVector y,b,berr;
  sMatrix A;
  double dev;
  int df;
  y.SetIt(false,OPENARRAY(double,(1,2,3,4)));
  A.SetIt(4,2,false,OPENARRAY(double,(1,5,2,6,3,7,4,8)));
  PoissonRegress(y,A,b,berr,dev,df,0.0,NULL,1.0e-8,300);
}