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
См. также: