ISlQualitySet.Actual

Синтаксис

Actual: Integer;

Описание

Свойство Actual определяет фактическое количество значений.

Пример

В примере описано задание параметров расчета для метода «Бинарная регрессия».

Sub Main;

Var

bm: SmBinaryModel;

can: Array Of Double;

bin2: Array Of Integer;

i, res, mm: Integer;

Intercept: IIntercept;

Explanatories: ISlSeries;

GuessingTable: ISlQualityTable;

GuessTableItem: ISlQualitySet;

Begin

// Задаем значения объясняющего ряда

can := New double[9];

can[00] := 6.209; can[05] := 5;

can[01] := 6.385; can[06] := 6;

can[02] := 6.29; can[07] := 7;

can[03] := 6.25; can[08] := 8;

can[04] := 6.1;

// Задаем значения объясняемого ряда

bin2 := New integer[5];

bin2[00] := 1; bin2[03] := 0;

bin2[01] := 1; bin2[04] := 0;

bin2[02] := 0;

bm := New SmBinaryModel.Create;

// Задаем значения первой и последней точек периода идентификации

bm.ModelPeriod.FirstPoint := 1;

bm.ModelPeriod.LastPoint := 5;

// Задаем значение последней точки прогноза

bm.Forecast.LastPoint := 14;

// Задаем способ оценки константы

Intercept := bm.ModelCoefficients.Intercept;

Intercept.Mode := InterceptMode.AutoEstimate;

// Задаем метод обработки пропусков

bm.MissingData.Method := MissingDataMethod.SampleAverage;

// Задаем тип модели

bm.BinaryDistr := BinaryDistrType.Probit;

// Задаем значение деления на группы и точность

bm.ClassificationCutOff := 0.5;

bm.Tolerance := 0.001;

// Задаем объясняемый ряд

bm.BinaryExplained := bin2;

// Задаем объясняющий ряд

Explanatories := bm.Explanatories;

Explanatories.Add.Value := can;

Explanatories.Item(0).Include := True;

// Производим расчет и выводим сообщения об ошибках

bm.Execute;

Debug.WriteLine(bm.Errors);

// Выводим результаты расчетов

If (res = 0) Then

// Таблица качества подбора бинарной модели

Debug.WriteLine("Описание качества подбора");

GuessingTable := bm.GuessingTable;

For mm := 0 To 1 Do

GuessTableItem := GuessingTable.Item(mm);

i := GuessTableItem.Actual;

Debug.WriteLine(mm.ToString + ". Фактически: " + i.ToString);

i := GuessTableItem.Prediction;

Debug.WriteLine(mm.ToString + ". Предсказано: " + i.ToString);

i := GuessTableItem.CorrectPrediction;

Debug.WriteLine(mm.ToString + ". Правильно предсказано: " + i.ToString);

End For;

End If;

End Sub Main;

После выполнения примера будут заданы параметры расчета. В окно консоли будет выведено сообщение о результатах расчета и значения, описывающие качество подбора бинарной модели:

Module execution started

Нет ошибок

Описание качества подбора

0. Фактически: 3

0. Предсказано: 3

0. Правильно предсказано: 2

1. Фактически: 2

1. Предсказано: 2

1. Правильно предсказано: 1

Module execution finished

См. также:

ISlQualitySet