unit1.pas

Delphi Pascal 数据挖掘领域算法包 回归分析

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  RegComp, StdCtrls, Buttons;

type
  TForm1 = class(TForm)
    RegComp1: TRegComp;
    btnCalc: TButton;
    procedure FormCreate(Sender: TObject);
    procedure btnCalcClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}


procedure TForm1.FormCreate(Sender: TObject);
begin
  RegComp1.MVPrepare;

  with RegComp1 do begin
    // Here, use k=2, n=4:

    // X1 data values:
    PRegressData^[1,0] := 1;
    PRegressData^[1,1] := 2;
    PRegressData^[1,2] := 4;
    PRegressData^[1,3] := 2;

    // X2 data values:
    PRegressData^[2,0] := 5;
    PRegressData^[2,1] := 3;
    PRegressData^[2,2] := 2;
    PRegressData^[2,3] := 6;

    // Y data values:
    Y[0]               := 1;
    Y[1]               := 4;
    Y[2]               := 3;
    Y[3]               := 4;
  end;

end;


procedure TForm1.btnCalcClick(Sender: TObject);
begin

  with RegComp1 do begin
  // Rec for results, Func      (X's,Y,#X's('k'),#Obs('n'))
     MultStatRec := MVRegression(PRegressData,Y,2,4);
     ShowMessage('R = ' + FloatToStr( MultStatRec.R ) );
  end;

end;


end.