IVarianceAnalysisSumSquared.BetweenGroup

Синтаксис

BetweenGroup: Double;

Описание

Свойство BetweenGroup возвращает сумму квадратов отклонений между группами.

Пример

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

Sub UserProc;
Var
    VA: ISmVarianceAnalysis;
    res: Integer;
    m: Array Of Double;
    SS: IVarianceAnalysisSumSquared;
Begin
    VA := New SmVarianceAnalysis.Create;
    m := New Double[53];
    m[00] := 1; m[01] := 4; m[02] := 1;
    m[10] := 2; m[11] := 3; m[12] := 2;
    m[20] := 3; m[21] := 3; m[22] := 1;
    m[30] := 4; m[31] := 1; m[32] := 2;
    m[40] := 5; m[41] := 1; m[42] := 1;
    VA.Data := m;
    VA.AnalysisType := VarianceAnalysisType.SingleFactor; //однофакторный анализ
    VA.ConfidenceLevel := 0.05;
    res := VA.Execute;
    If res <> 0 Then
        Debug.WriteLine(VA.Errors);
    Else
        Debug.WriteLine("Сумма квадратов отклонений");
        SS := VA.SumSquared;
        Debug.WriteLine("между группами: " + SS.BetweenGroup.ToString);
        Debug.WriteLine("внутри групп: " + SS.WithinGroup.ToString);
        Debug.WriteLine("итого: " + SS.Total.ToString);
    End If;
End Sub UserProc;

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

Выполнение модуля начато

Сумма квадратов отклонений

между группами: 6.53333333333333

внутри групп: 18.4

итого: 24.9333333333333

Выполнение модуля завершено

См. также:

IVarianceAnalysisSumSquared