ISmFisherTest.FisherProbability

Fore Syntax

FisherProbability: Double;

Fore.NET Syntax

FisherProbability: double;

Description

The FisherProbability property returns Fisher statistics probability value.

Comments

To get the Fisher statistics, use the ISmFisherTest.FisherStatistics property.

Fore Example

To execute the example, add a link to the Stat system assembly.

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("Fisher statistic: " + Ftest.FisherStatistics.ToString);
        Debug.WriteLine("Value of Fisher statistics probability: " + Ftest.FisherProbability.ToString);
    End If;
End Sub UserProc;

After executing the example the console window displays values of the Fisher statistics and Fisher statistics probability.

Fore.NET Example

The requirements and result of the Fore.NET example execution match with those in the Fore example.

Imports Prognoz.Platform.Interop.Stat;
…
Public Shared Sub Main(Params: StartParams);
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
        System.Diagnostics.Debug.WriteLine(Ftest.Errors);
        Else
        System.Diagnostics.Debug.WriteLine("Fisher statistic: " + Ftest.FisherStatistics.ToString());
        System.Diagnostics.Debug.WriteLine("Value of Fisher statistics probability: " + Ftest.FisherProbability.ToString());
    End If;
End Sub;