ISmRamseyRESSETTest.SummaryStatistics

Синтаксис

SummaryStatistics: ISummaryStatistics;

Описание

Свойство SummaryStatistics возвращает статистические характеристики.

Пример

Sub Main;

Var

RESSET: SmRamseyRESSETTest;

d0: Double;

res: Integer;

y, y0, y1, y2: Array Of Double;

Begin

y := New Double[9];

y0 := New Double[9];

y1 := New Double[9];

y2 := New Double[9];

//значения y, y0, y1, y2

y[0] := 6209; y0[0] := 4110; y1[0] := 3415; y2[0] := 2822;

y[1] := 6385; y0[1] := 4280; y1[1] := 3673; y2[1] := 3023;

y[2] := 6752; y0[2] := 4459; y1[2] := 4013; y2[2] := 3131;

y[3] := 6837; y0[3] := 4545; y1[3] := 4278; y2[3] := 3351;

y[4] := 6495; y0[4] := 4664; y1[4] := 4577; y2[4] := 3463;

y[5] := 6907; y0[5] := 4861; y1[5] := 5135; y2[5] := 3686;

y[6] := 7349; y0[6] := 5195; y1[6] := 5388; y2[6] := 3815;

y[7] := 7213; y0[7] := 5389; y1[7] := 5610; y2[7] := 3960;

y[8] := 7061; y0[8] := 5463; y1[8] := 5787; y2[8] := 4119;

RESSET := New SmRamseyRESSETTest.Create;

RESSET.Explained.Value := y;

RESSET.Explanatories.Add.Value := y0;

RESSET.Explanatories.Add.Value := y1;

RESSET.Explanatories.Add.Value := y2;

RESSET.ModelPeriod.FirstPoint := 1;

RESSET.ModelPeriod.LastPoint := 9;

RESSET.MissingData.Method := MissingDataMethod.SampleAverage;

RESSET.ModelCoefficients.Intercept.Mode := InterceptMode.AutoEstimate;

RESSET.Power := 1;

res := RESSET.Execute;

If res <> 0 Then

Debug.WriteLine(RESSET.Errors);

Else

Debug.WriteLine("=== Тест Фишера ===");

d0 := RESSET.FTest.Statistic;

Debug.WriteLine("значение: " + d0.ToString);

d0 := RESSET.FTest.Probability;

Debug.WriteLine("вероятность: " + d0.ToString);

Debug.WriteLine("=== Тест хи-квадрат ===");

d0 := RESSET.ChiTest.Statistic;

Debug.WriteLine("значение: " + d0.ToString);

d0 := RESSET.ChiTest.Probability;

Debug.WriteLine("вероятность: " + d0.ToString);

Debug.WriteLine("== Статистические характеристики ==");

d0 := RESSET.SummaryStatistics.AIC;

Debug.WriteLine("Критерий Акаике: " + d0.ToString);

d0 := RESSET.SummaryStatistics.DW;

Debug.WriteLine("Статистика Дарбина-Уотсона: " + d0.ToString);

End If;

End Sub Main;

После выполнения примера в окно консоли будут выведены результаты расчетов теста:

Module execution started

=== Тест Фишера ===

значение: 0.96811986073079859

вероятность: 0.35396728095844143

=== Тест хи-квадрат ===

значение: 1.0281105844293279

вероятность: 0.31060285007896477

== Статистические характеристики ==

Критерий Акаике: 12.419664444381507

Статистика Дарбина-Уотсона: 2.5471799020525463

Module execution finished

См. также:

ISmRamseyRESSETTest