SummaryStatistics: ISummaryStatistics;
Свойство SummaryStatistics возвращает статистические характеристики.
В примере описано задание параметров и расчет фильтра Ходрика-Прескотта для ряда данных, заданного вещественным массивом «s». Для выполнения примера необходимо добавить ссылку на системную сборку «Stat».
Sub UserProc;
Var
HP: SmHodrickPrescottFilter;
s: Array Of Double;
res: Integer;
d: Double;
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
s := New Double[15];
//значения s
s[00] := 670.2; s[01] := 576.06; s[02] := 717.64;
s[03] := 856.9; s[04] := 885.4; s[05] := 1011;
s[06] := 995.44; s[07] := 1064.74; s[08] := 1033.3;
s[09] := 780.8; s[10] := 657.5; s[11] := 654.5;
s[12] := 678.23; s[13] := 642.41; s[14] := 751.9;
HP := New SmHodrickPrescottFilter.Create;
HP.Serie.Value := s;
HP.ModelPeriod.FirstPoint := 1;
HP.ModelPeriod.LastPoint := 15;
HP.MissingData.Method := MissingDataMethod.SampleAverage;
HP.SmoothingParameter := 10;
res := HP.Execute;
If res <> 0 Then
Debug.WriteLine(HP.Errors);
Else
Debug.WriteLine("Статистические характеристики");
d := HP.SummaryStatistics.SEE;
Debug.WriteLine(" - стандартное отклонение остатков: " + d.ToString);
d := HP.SummaryStatistics.ME;
Debug.WriteLine(" - среднее остатков: " + d.ToString);
Debug.WriteLine("Остатки");
Print(HP.Residuals);
End If;
End Sub UserProc;
После выполнения примера в окно консоли будут выведены статистические характеристики и ряд остатков:
Module execution started
Статистические характеристики
- стандартное отклонение остатков: 73.79038940626414
- среднее остатков: 3.5621875819439689E-013
Остатки
---Begin---
0. 54,2586
1. -110,0221
2. -44,0086
3. 19,8353
4. -16,9531
5. 61,4798
6. 26,5631
7. 107,8577
8. 120,6484
9. -65,2860
10. -121,6513
11. -72,7850
12. -15,5291
13. -32,1573
14. 87,7495
---End---
См. также: