WFitModel

procedure WFitModel(

  Model: TModel;

  X: TVector;

  Y: TVector;

  S: TVector;

  Ycalc: TVector;

  U: TMatrix;

  Lb: Integer;

  Ub: Integer;

  MaxIter: Integer;

  Tol: Float;

  SVDTol: Float;

  B: TVector;

  V: TMatrix;

  var Test: TRegTest

);