ISlConstCoefficients.TStatistic

Синтаксис

TStatistic: Double;

Описание

Свойство TStatistic возвращает t-статистику.

Пример

Sub Main;

Var

ADF: SmAugmentDickeyFullerTest;

d0: Double;

res: Integer;

can: Array Of Double;

CC: ISlConstCoefficients;

Sub Print(Data: Array Of Double);

Var

i: Integer;

CI: ICultureInfo;

Begin

CI := CultureInfo.Current;

Debug.WriteLine("---Begin---");

For i := 0 To Data.Length - 1 Do

If Double.IsNan(Data[i]) Then

Debug.WriteLine("---empty---");

Else

Debug.WriteLine(i.ToString + ", " + CI.FormatDoublePrec(Data[i], 4));

End If;

End For;

Debug.WriteLine("---End---");

End Sub Print;

Begin

ADF := New SmAugmentDickeyFullerTest.Create;

can := New Double[16];

//значения can

can[00] := 6209;

can[01] := 6385;

can[02] := 6752;

can[03] := 6837;

can[04] := 6495;

can[05] := 6907;

can[06] := 7349;

can[07] := 7213;

can[08] := 7061;

can[09] := 7180;

can[10] := 7132;

can[11] := 7137;

can[12] := 7473;

can[13] := 7722;

can[14] := 8088;

can[15] := 8516;

ADF.Serie.Value := can;

ADF.ModelPeriod.FirstPoint := 1;

ADF.ModelPeriod.LastPoint := 16;

ADF.EquationType := ADFEquationType.ConstantTrend;

ADF.TestedSeries := ADFTestedSeriesType.Level;

ADF.AutoRegressionOrder := 2;

res := ADF.Execute;

If res <> 0 Then

Debug.WriteLine(ADF.Errors);

Else

Debug.WriteLine("== Критические значения ==");

Print(ADF.CriticalValues);

Debug.WriteLine("== Константа ==");

CC := ADF.Intercept;

d0 := CC.Estimate;

Debug.WriteLine("оценка: " + d0.ToString);

d0 := CC.Probability;

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

d0 := CC.StandardError;

Debug.WriteLine("стандартная ошибка: " + d0.ToString);

d0 := CC.TStatistic;

Debug.WriteLine("t-статистика: " + d0.ToString);

Debug.WriteLine("== Тренд ==");

CC := ADF.Trend;

d0 := CC.Estimate;

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

d0 := CC.Probability;

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

d0 := CC.StandardError;

Debug.WriteLine("стандартная ошибка: " + d0.ToString);

d0 := CC.TStatistic;

Debug.WriteLine("t-статистика: " + d0.ToString);

End If;

End Sub Main;

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

Module execution started

== Критические значения ==

---Begin---

0, -4.5348

1, -3.6746

2, -3.2762

---End---

== Константа ==

оценка: 1191.598892266572

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

стандартная ошибка: 4083.6863637104693

t-статистика: 0.29179490933869756

== Тренд ==

значения: 43.355116764399035

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

стандартная ошибка: 59.614733021498303

t-статистика: 0.72725506878919155

Module execution finished

См. также:

ISlConstCoefficients