IStatistics.Rsq

Синтаксис Fore

Rsq(KnownYs: Array; KnownXs: Array): Double;

Синтаксис Fore.NET

Rsq(KnownYs: System.Array; KnownXs: System.Array): double;

Параметры

KnownYs. Независимый ряд;

KnownXs. Зависимый ряд.

Описание

Метод Rsq возвращает квадрат коэффициента корреляции Пирсона (r^2).

Комментарии

Для корректного расчета ряды KnownYs и KnownXs:

• должны иметь равное количество точек;

• должны быть неконстантными;

• должны содержать больше трех точек.

Пример Fore

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

Sub userProc;
Var
    st: Statistics;
    d0: Double;
    y, x: Array Of Double;
Begin
    y := New Double[10];
    y[00] := 1.6; y[05] := 2.1;
    y[01] := 1.7; y[06] := 2.2;
    y[02] := 1.8; y[07] := 2.3;
    y[03] := 1.9; y[08] := 2.4;
    y[04] := 2; y[09] := 2.8;
    x := New Double[10];
    x[00] := 2; x[05] := 6;
    x[01] := 4; x[06] := 15;
    x[02] := 2; x[07] := 17;
    x[03] := 5; x[08] := 14;
    x[04] := 12; x[09] := 3;
    st := New Statistics.Create;
    d0 := st.Rsq(y, x);
        If st.Status <> 0 Then
    Debug.WriteLine(st.Errors);
    Else
        Debug.WriteLine("Квадрат коэффициента Пирсона: " + d0.ToString);
    End If;
End Sub userProc;

В результате выполнения примера в окно консоли будет выведен квадрат коэффициента корреляции Пирсона.

Пример Fore.NET

Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.

Imports Prognoz.Platform.Interop.Stat;
…
Public Shared Sub Main(Params: StartParams);
Var
    st: Statistics;
    d0: Double;
    y, x: Array Of Double;
Begin
    y := New Double[10];
    y[00] := 1.6; y[05] := 2.1;
    y[01] := 1.7; y[06] := 2.2;
    y[02] := 1.8; y[07] := 2.3;
    y[03] := 1.9; y[08] := 2.4;
    y[04] := 2; y[09] := 2.8;
    x := New Double[10];
    x[00] := 2; x[05] := 6;
    x[01] := 4; x[06] := 15;
    x[02] := 2; x[07] := 17;
    x[03] := 5; x[08] := 14;
    x[04] := 12; x[09] := 3;
    st := New Statistics.Create();
    d0 := st.Rsq(y, x);
        If st.Status <> 0 Then
    System.Diagnostics.Debug.WriteLine(st.Errors);
    Else
        System.Diagnostics.Debug.WriteLine("Квадрат коэффициента Пирсона: " + d0.ToString());
    End If;
End Sub;

См. также:

IStatistics