7eaddd9a54
ML - устранение неточностей и багов ML - оптимизация производительности DecisionTreeRegressor.Fit, RandomForestRegressor.Fit ML - тесты
18 lines
657 B
ObjectPascal
18 lines
657 B
ObjectPascal
uses MLABC;
|
|
uses TestHelpers in '..\TestHelpers.pas';
|
|
|
|
begin
|
|
var X := new Matrix(5, 2);
|
|
X[0,0] := 1; X[1,0] := 2; X[2,0] := 3; X[3,0] := 10; X[4,0] := 20;
|
|
X[0,1] := 100; X[1,1] := 120; X[2,1] := 150; X[3,1] := 300; X[4,1] := 500;
|
|
|
|
var scaler := new MinMaxScaler;
|
|
scaler.Fit(X);
|
|
var Xscaled := scaler.Transform(X);
|
|
|
|
Check(Abs(Xscaled.ColumnMin(0) - 0.0) < 1e-12, 'First column min must be 0');
|
|
Check(Abs(Xscaled.ColumnMax(0) - 1.0) < 1e-12, 'First column max must be 1');
|
|
Check(Abs(Xscaled.ColumnMin(1) - 0.0) < 1e-12, 'Second column min must be 0');
|
|
Check(Abs(Xscaled.ColumnMax(1) - 1.0) < 1e-12, 'Second column max must be 1');
|
|
end.
|