27 lines
642 B
ObjectPascal
27 lines
642 B
ObjectPascal
uses MLABC;
|
|
|
|
function SurvivalRate(df: DataFrame): real;
|
|
begin
|
|
Result := df.Int('Выжил').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.
|