21 lines
558 B
ObjectPascal
21 lines
558 B
ObjectPascal
|
uses MLABC;
|
||
|
|
uses TestHelpers in '..\TestHelpers.pas';
|
||
|
|
|
||
|
|
begin
|
||
|
|
var X := new Matrix(4, 2);
|
||
|
|
X[0,0] := 1.0; X[0,1] := 10.0;
|
||
|
|
X[1,0] := 2.0; X[1,1] := 20.0;
|
||
|
|
X[2,0] := 5.0; X[2,1] := 40.0;
|
||
|
|
X[3,0] := 9.0; X[3,1] := 80.0;
|
||
|
|
|
||
|
|
var scaler := new MinMaxScaler(-1.0, 1.0);
|
||
|
|
scaler.Fit(X);
|
||
|
|
|
||
|
|
var scaled := scaler.Transform(X);
|
||
|
|
var restored := scaler.InverseTransform(scaled);
|
||
|
|
|
||
|
|
for var i := 0 to X.RowCount - 1 do
|
||
|
|
for var j := 0 to X.ColCount - 1 do
|
||
|
|
Check(Abs(restored[i,j] - X[i,j]) < 1e-9, $'InverseTransform mismatch at [{i},{j}]');
|
||
|
|
end.
|