ISmFisherTest.FisherProbability

Синтаксис Fore

FisherProbability: Double;

Синтаксис Fore.NET

FisherProbability: double;

Описание

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

Комментарии

Для получения значения статистики Фишера используйте свойство ISmFisherTest.FisherStatistics.

Пример Fore

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

Var
    Ftest: ISmFisherTest;
    res: Integer;
    mA: Array[7Of Double;
    mB: Array[9Of 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("Статистика Фишера: " + Ftest.FisherStatistics.ToString);
        Debug.WriteLine("Значение вероятности статистики Фишера: " + Ftest.FisherProbability.ToString);
    End If;
End Sub UserProc;

После выполнения примера в окно консоли будут выведены значение статистики Фишера и значение вероятности статистики Фишера.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Stat;

Public Shared Sub Main(Params: StartParams);
Var
    Ftest: ISmFisherTest;
    res: integer;
    mA: Array[7Of double;
    mB: Array[9Of 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
        System.Diagnostics.Debug.WriteLine(Ftest.Errors);
        Else
        System.Diagnostics.Debug.WriteLine("Статистика Фишера: " + Ftest.FisherStatistics.ToString());
        System.Diagnostics.Debug.WriteLine("Значение вероятности статистики Фишера: " + Ftest.FisherProbability.ToString());
    End If;
End Sub;

См. также:

ISmFisherTest