ISmFisherTest.FisherCritical

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

Sub UserProc;
Var
    Ftest: ISmFisherTest;
    res: Integer;
    mA: Array[7] Of Double;
    mB: Array[9] Of Double;
    SA,SB: ISlFisherTestSample;
Begin
    Ftest := New SmFisherTest.Create;
    mA[0] := 1; mB[0] := 1;
    mA[1] := 2; mB[1] := 2;
    mA[2] := 3; mB[2] := 3;
    mA[3] := 4; mB[3] := 4;
    mA[4] := 5; mB[4] := 10;
    mA[5] := 6; mB[5] := 11;
    mA[6] := 7; mB[6] := 12;
    mB[7] := 13;
    mB[8] := 14;
    SA := Ftest.SampleA;
    SB := Ftest.SampleB;
    SA.Sample.Value := mA;
    SB.Sample.Value := mB;
    Ftest.ConfidenceLevel := 0.05;
    res := Ftest.Execute;
    If res <> 0 Then
        Debug.WriteLine(Ftest.Errors);
    Else
        Debug.WriteLine("Среднее А: " + SA.Average.ToString);
        Debug.WriteLine("Среднее B: "+ SB.Average.ToString);
        Debug.WriteLine("Дисперсия А: "+ SA.Variance.ToString);
        Debug.WriteLine("Дисперсия В:"+ SB.Variance.ToString);
        Debug.WriteLine("Статистика Фишера: " + Ftest.FisherStatistics.ToString);
        Debug.WriteLine("Критическое значение статистики Фишера: " + Ftest.FisherCritical.ToString);
        If Ftest.FisherTestResult Then
            Debug.AssertMsg(False, "Fstat > Fcrit. Гипотезу о равенстве дисперсий принимаем.");
        Else
            Debug.AssertMsg(False, "Fstat < Fcrit. Гипотезу о равенстве дисперсий не принимаем");
        End If;
    End If;
End Sub UserProc;