administrator/pascalabcnet
1
0
Fork 0
Code Issues Pull requests Actions Packages Projects Releases Wiki Activity

ML - исправление падения в DTC - из за ранней инициализации критерия

Browse source
This commit is contained in:
Mikhalkovich Stanislav 2026-04-15 22:21:22 +03:00
parent 4b02fb9c94
commit 13a1804dda
1 changed files with 5 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

6
bin/Lib/MLModelsABC.pas
View file

@ -4391,7 +4391,8 @@ begin
fMaxDepth := maxDepth; fMaxDepth := maxDepth;
fMinSamplesSplit := minSamplesSplit; fMinSamplesSplit := minSamplesSplit;
fMinSamplesLeaf := minSamplesLeaf; fMinSamplesLeaf := minSamplesLeaf;
fCriterion := if criterion = nil then new GiniCriterion else criterion;
fCriterion := criterion;
fRandomSeed := ResolveRandomSeed(seed, fUserProvidedSeed); fRandomSeed := ResolveRandomSeed(seed, fUserProvidedSeed);
fRng := new System.Random(fRandomSeed); fRng := new System.Random(fRandomSeed);
@ -4437,6 +4438,9 @@ begin
// --- encode // --- encode
var classes: array of integer; var classes: array of integer;
var yEncArr := EncodeLabelsInt(yInt, classes); var yEncArr := EncodeLabelsInt(yInt, classes);
if fCriterion = nil then
fCriterion := new GiniCriterion(classes.Length);
if classes.Length < 2 then if classes.Length < 2 then
ArgumentError(ER_NEED_AT_LEAST_TWO_CLASSES); ArgumentError(ER_NEED_AT_LEAST_TWO_CLASSES);