7eaddd9a54
ML - устранение неточностей и багов ML - оптимизация производительности DecisionTreeRegressor.Fit, RandomForestRegressor.Fit ML - тесты
27 lines
651 B
ObjectPascal
27 lines
651 B
ObjectPascal
uses MLABC;
|
|
|
|
function SurvivalRate(df: DataFrame): real;
|
|
begin
|
|
Result := df.GetIntColumn('Выжил').Average;
|
|
end;
|
|
|
|
begin
|
|
var ds := Datasets.TitanicRu;
|
|
var df := ds.Data;
|
|
|
|
Println('Доля выживших по полу:');
|
|
foreach var sex in |'муж', 'жен'| do
|
|
begin
|
|
var sub := df.Filter(r -> r.Str('Пол') = sex);
|
|
Println($' {sex,-4}: {100 * SurvivalRate(sub):F1}%');
|
|
end;
|
|
|
|
Println;
|
|
Println('Доля выживших по классу:');
|
|
for var cls := 1 to 3 do
|
|
begin
|
|
var sub := df.Filter(r -> r.Int('Класс') = cls);
|
|
Println($' класс {cls}: {100 * SurvivalRate(sub):F1}%');
|
|
end;
|
|
end.
|