FisherProbability: Double;
The FisherProbability property returns Fisher statistics probability value.
To get the Fisher statistics, use the ISmFisherTest.FisherStatistics property.
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.
See also: