ISmPairCorrelation.BalancedSample

Копировать пример

Sub UserProc;
Var
    pc: SmPairCorrelation;
    m: Array[4, 4] Of Double;
    w: Array[4] Of Double;
    res, i, j: Integer;
    PairCorr: Array Of Double;
Begin
    pc := New SmPairCorrelation.Create;
    // Задаем исходные данные
    m[0, 0] := 10;  m[0, 1] := 1;  m[0, 2] := 62;  m[0, 3] := -3;
    m[1, 0] := 30;  m[1, 1] := 2;  m[1, 2] := 32;  m[1, 3] := Double.Nan;
    m[2, 0] := 3;   m[2, 1] := 3;  m[2, 2] := 22;  m[2, 3] := -3;
    m[3, 0] := 77;  m[3, 1] := 4;  m[3, 2] := 21;  m[3, 3] := 3;
    pc.Data := m;
    // Задаем метод обработки пропусков
    pc.MissingData.Method := MissingDataMethod.Casewise;
    // Задаем вектор весов
    w[0] := 1;  w[1] := 2;  w[2] := 2.2;  w[3] := 0.5;
    pc.Weights := w;
    // Определяем данные, по которым будет рассчитываться корреляция
    pc.BalancedSample := False;
    // Выполняем расчёт и выводим результаты
    res := pc.Execute;
    If res <> 0 Then
        Debug.Write(pc.Errors);
    Else
        Debug.WriteLine("Матрица парных коэффициентов корреляции:");
        Debug.Indent;
        For i := 0 To pc.PairCorrelationMatrix.GetUpperBound(1) Do
            For j := 0 To pc.PairCorrelationMatrix.GetUpperBound(2) Do
                PairCorr := pc.PairCorrelationMatrix;
                Debug.Write(PairCorr[i, j].ToString + ", ");
            End For;
            Debug.WriteLine(" ");
        End For;
        Debug.Unindent;
    End If;
End Sub UserProc;