Classifier

Event used by TClassifier object to test the classification accuracy. The method needs to test the accuray of the classification and return result in the Success parameter. The following example shows the typical pattern, how this event is to be implemented: 

var i, k: Integer;
begin
    k := 0;
    for i := 0 to Length(Examples)-1 do
    begin
        if Examples[i].ClassIndex = NaiveBayes1.Classify(Examples[i].Discrete, Examples[i].Float) then Inc(k);
    end;
    Success := k/Length(Examples);
end;

Types