ISmVarianceAnalysis.FisherCritical

Синтаксис

FisherCritical: IVarianceAnalysisStatistics;

Описание

Свойство FisherCritical возвращает критическое значение статистики Фишера.

Пример

Для выполнения примера добавьте ссылку на системную сборку Stat.

Sub UserProc;
Var
    VA: SmVarianceAnalysis;
    res: Integer;
    m: Array Of Double;
    FS, FC: IVarianceAnalysisStatistics;
Begin
    VA := New SmVarianceAnalysis.Create;
    m := New Double[53];
    m[00] := 1; m[01] := 4; m[02] := 1;
    m[10] := 2; m[11] := 3; m[12] := 2;
    m[20] := 3; m[21] := 3; m[22] := 1;
    m[30] := 4; m[31] := 1; m[32] := 2;
    m[40] := 5; m[41] := 1; m[42] := 1;
    VA.Data := m;
    VA.AnalysisType := VarianceAnalysisType.TwoFactor; // двухфакторный анализ
    VA.ConfidenceLevel := 0.05;
    res := VA.Execute;
    If res <> 0 Then
        Debug.WriteLine(VA.Errors);
    Else
        Debug.WriteLine("=================================");
        Debug.WriteLine("Значение статистики Фишера");
        FS := VA.FisherStatistics;
        Debug.WriteLine("строки : " + FS.Rows.ToString);
        Debug.WriteLine("столбцы : " + FS.Columns.ToString);
        Debug.AssertMsg(False"=================================");
        Debug.WriteLine("Критическое значение статистики Фишера");
        FC := VA.FisherCritical;
        Debug.WriteLine("строки : " + FC.Rows.ToString);
        Debug.WriteLine("столбцы : " + FC.Columns.ToString);
        If VA.VarianceEqualByRows Then
            Debug.WriteLine("Fstat < Fcrit. Гипотеза о равенстве дисперсий фактора А (по строкам) принимается. Различие дисперсий незначимо");
        Else
            Debug.WriteLine("Fstat > Fcrit. Гипотеза о равенстве дисперсий фактора А (по строкам) отклоняется. Различие дисперсий значимо");
        End If;
        If VA.VarianceEqualByColumns Then
            Debug.WriteLine("Fstat < Fcrit. Гипотеза о равенстве дисперсий фактора B (по столбцам) принимается. Различие дисперсий незначимо");
        Else
            Debug.WriteLine("Fstat > Fcrit. Гипотеза о равенстве дисперсий фактора B (по столбцам) отклоняется. Различие дисперсий значимо");
        End If;
    End If;
End Sub UserProc;

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

Module execution started

=================================

Значение статистики Фишера

строки: 0.029411764705882443

столбцы: 1.4411764705882384

=================================

Критическое значение статистики Фишера

строки: 3.837853326929805

столбцы: 4.4589684100858102

Fstat < Fcrit. Гипотеза о равенстве дисперсий фактора А (по строкам) принимается. Различие дисперсий незначимо

Fstat < Fcrit. Гипотеза о равенстве дисперсий фактора B (по столбцам) принимается. Различие дисперсий незначимо

Module execution finished

См. также:

ISmVarianceAnalysis