ISmVarianceAnalysis.SumSquared

Синтаксис

SumSquared: IVarianceAnalysisSumSquared

Описание

Свойство SumSquared возвращает сумму квадратов отклонений.

Пример

Sub Main;

Var

VA: SmVarianceAnalysis;

res: Integer;

m: Array Of Double;

SS: IVarianceAnalysisSumSquared;

Begin

VA := New SmVarianceAnalysis.Create;

m := New Double[5, 3];

m[0, 0] := 1; m[0, 1] := 4; m[0, 2] := 1;

m[1, 0] := 2; m[1, 1] := 3; m[1, 2] := 2;

m[2, 0] := 3; m[2, 1] := 3; m[2, 2] := 1;

m[3, 0] := 4; m[3, 1] := 1; m[3, 2] := 2;

m[4, 0] := 5; m[4, 1] := 1; m[4, 2] := 1;

VA.Data := m;

VA.AnalysisType := VarianceAnalysisType.TwoFactor; // двухфакторный анализ

VA.ConfidenceLevel := 0.05;

res := VA.Execute;

If res <> 0 Then

Debug.WriteLine(VA.Errors);

Else

Debug.AssertMsg(False,"Результаты: ");

Debug.WriteLine("Сумма квадратов отклонений");

SS := VA.SumSquared;

Debug.WriteLine("строки : " + SS.Rows.ToString);

Debug.WriteLine("столбцы : " + SS.Columns.ToString);

Debug.WriteLine("погрешность : " + SS.Accuracy.ToString);

Debug.WriteLine("Итого: " + SS.Total.ToString);

End If;

End Sub Main;

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

Module execution started

Результаты:

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

строки: 0.26666666666666694

столбцы: 6.5333333333333341

погрешность: 18.133333333333297

Итого: 24.933333333333326

Module execution finished

См. также:

ISmVarianceAnalysis