ISmFisherTest.SampleA

Синтаксис

SampleA: ISlFisherTestSample;

Описание

Свойство SampleA определяет параметры первой выборки.

Пример

Sub Main;

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 Main;

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

Module execution started

Среднее А: 4

Среднее B: 7.7777777777777777

Дисперсия А: 4

Дисперсия В:23.950617283950617

Статистика Фишера: 0.1670103092783505

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

Fstat < Fcrit. Гипотезу о равенстве дисперсий не принимаем

Module execution finished

См. также:

ISmFisherTest