JBStat: Double;
JBStat: double;
Свойство JBStat возвращает значение статистики Жака-Бера.
Критерий Жака-Бера используется для проверки гипотезы о нормальности остатков модели.
Для получения значения вероятности статистики Жака-Бера используйте свойство ISummaryStatistics.ProbJBStat.
Для выполнения примера добавьте ссылку на системную сборку Stat.
Sub UserProc;
Var
LinearR: SmLinearRegress;
can, fr: Array[9] Of Double;
res, i: Integer;
Con: IIntercept;
ss: ISummaryStatistics;
Begin
LinearR := New SmLinearRegress.Create;
For i := 0 To 8 Do
can[i] := 1230 + i * 302;
fr[i] := 579.5 + i * 9.4;
End For;
// Задаем параметры модели
LinearR.Explained.Value := can;
LinearR.Explanatories.Add.Value := fr;
Con := LinearR.ModelCoefficients.Intercept;
Con.Mode := InterceptMode.ManualEstimate;
// Выполняем расчёт
res := LinearR.Execute;
ss := LinearR.SummaryStatistics;
Debug.Write("Cтатистика Жака-Бера: ");
Debug.WriteLine(ss.JBStat);
Debug.Write("Вероятность статистики Жака-Бера: ");
Debug.WriteLine(ss.ProbJBStat);
End Sub UserProc;
После выполнения примера в окно консоли будет выведены значения статистики и вероятности статистики Жака-Бера.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Stat;
…
Public Shared Sub Main(Params: StartParams);
Var
LinearR: SmLinearRegress;
can, fr: Array[9] Of Double;
res, i: Integer;
Con: IIntercept;
ss: ISummaryStatistics;
Begin
LinearR := New SmLinearRegress.Create();
For i := 0 To 8 Do
can[i] := 1230 + i * 302;
fr[i] := 579.5 + i * 9.4;
End For;
// Задаем параметры модели
LinearR.Explained.Value := can;
LinearR.Explanatories.Add().Value := fr;
Con := LinearR.ModelCoefficients.Intercept;
Con.Mode := InterceptMode.imManualEstimate;
// Выполняем расчёт
res := LinearR.Execute();
ss := LinearR.SummaryStatistics;
System.Diagnostics.Debug.Write("Cтатистика Жака-Бера: ");
System.Diagnostics.Debug.WriteLine(ss.JBStat);
System.Diagnostics.Debug.Write("Вероятность статистики Жака-Бера: ");
System.Diagnostics.Debug.WriteLine(ss.ProbJBStat);
End Sub;
См. также: