18 lines
561 B
ObjectPascal
18 lines
561 B
ObjectPascal
|
uses MLABC, PlotML;
|
|||
|
|
|
|||
|
|
begin
|
|||
|
|
var ds := Datasets.UsedCarsPrice;
|
|||
|
|
var df := ds.Data.Filter(r -> r.Float('price_k_rub') <= 6000);
|
|||
|
|
|
|||
|
|
var names := Arr('year', 'mileage_1000km', 'l_100km', 'engineSize');
|
|||
|
|
var X := df.ToMatrix(Arr('year', 'mileage_km', 'l_100km', 'engineSize'));
|
|||
|
|
|
|||
|
|
for var i := 0 to X.RowCount - 1 do
|
|||
|
|
X[i, 1] := X[i, 1] / 1000.0;
|
|||
|
|
|
|||
|
|
var price := df.ToVector('price_k_rub');
|
|||
|
|
|
|||
|
|
Plot.PairPlot(X.Data, price.Data, names, bins := 6, maxPoints := 2000);
|
|||
|
|
Plot.Title := 'UsedCars: признаки, окрашенные по цене';
|
|||
|
|
end.
|