IStatistics.DurbinWatsonStats

Копировать пример

Sub UserProc;
Var
    Stat: Statistics;
    N, K: Integer;
    Alpha, dU, dL, DW: Double;
Begin
    Stat := New Statistics.Create;
    // Зададим количество наблюдений
    N := 20;
    // Зададим количество переменных в модели
    K := 5;
    // Зададим уровень значимости
    Alpha := 5;
    // Произведем расчет границ интервала статистики Дарбина-Уотсона
    Stat.DurbinWatsonStats(N, K, Alpha, dL, dU);
    // Выведем нижнюю и верхнюю границы интервала
    Debug.WriteLine("Нижняя граница интервала: " + dL.ToString);
    Debug.WriteLine("Верхняя граница интервала: " + dU.ToString);
    //Проверка гипотезы
    DW := 1.98;
    Debug.WriteLine("Проверка гипотезы:");
    If (DW <= 2) Then
        If (dU < DW) Then
            Debug.WriteLine("Нулевая гипотеза принимается, " +
            "коэф.автокорреляции р = 0, автокорреляции остатков нет" );
        End If;
        If ((dL < DW) And (DW < dU)) Then
            Debug.WriteLine("Неопределённость");
        End If;
        If ((0 < DW) And (DW < dL)) Then
            Debug.WriteLine("Нулевая гипотеза отвергается, " +
            "коэф.автокорреляции p <> 0, есть автокорреляция остатков" );
        End If;
    Else
        DW := 4 - DW;
        If (dU < DW) Then
            Debug.WriteLine("Нулевая гипотеза принимается, " +
            "коэф.автокорреляции р = 0, автокорреляции остатков нет" );
        End If;
        If ((dL < DW) And (DW < dU)) Then
            Debug.WriteLine("Неопределённость");
        End If;
        If ((0 < DW) And (DW < dL)) Then
            Debug.WriteLine("Нулевая гипотеза отвергается," +
            "коэф.автокорреляции p <> 0, есть отрицательная aвтокорреляция остатков" );
        End If;
    End If;
End Sub UserProc;