IModelling.TslsR

TslsR(Input: ITimeSeries;
      Period: IMsPeriod;
      ConstantValue: Variant;
      Casewise: MsCasewise;
      Explanatories: Array): Variant;

Параметры

Period. Период, на котором рассчитывается метод;

ConstantValue. Константа, используемая в расчётах;

Explanatories. Экзогенные и инструментальные переменные.

Описание

Метод TslsR моделирует данные переменной с помощью линейной регрессии (оценка методом инструментальных переменных). Расчёт выполняется с помощью пакета R.

Комментарии

Используйте метод TslsR только при векторном режиме расчёта.

Для использования данного метода в репозитории должна быть настроена интеграция с R. Подробнее о том, как можно настроить интеграцию вы можете узнать в разделе «Как настроить интеграцию с R?».

Пример

Для выполнения примера в репозитории предполагается наличие контейнера моделирования с идентификатором MS. В данном контейнере содержится модель с идентификатором MODEL_D, рассчитываемая методом детерминированного уравнения и содержащая более двух входных переменных.

В репозитории должна быть настроена интеграция с R. Подробнее о том, как можно настроить интеграцию вы можете узнать в разделе «Как настроить интеграцию с R?».

Sub UserProc;
Var
    Mb: IMetabase;
    ModelSpace, ModelObj: IMetabaseObject;
    Transf: IMsFormulaTransform;
    Formula: IMsFormula;
    Model: IMsModel;
    Determ: IMsDeterministicTransform;
    TransVar: IMsFormulaTransformVariable;
    Slice: IMsFormulaTransformSlice;
    TermInfo: IMsFormulaTermInfo;
    Inp, Instr, Exogen: String;
    Expr: IExpression;
Begin
    // Получаем репозиторий
    Mb := MetabaseClass.Active;
    // Получаем контейнер моделирования
    ModelSpace := Mb.ItemById("MS").Bind;
    // Получаем модель
    ModelObj := Mb.ItemByIdNamespace("MODEL_D", ModelSpace.Key).Edit;
    Model := ModelObj As IMsModel;
    // Получаем параметры расчета модели
    Transf := Model.Transform;
    Formula := Transf.FormulaItem(0);
    Determ := Formula.Method As IMsDeterministicTransform;
    // Получаем первую входную переменную
    TransVar := Transf.Inputs.Item(0);
    Slice := TransVar.Slices.Item(0);
    TermInfo := Transf.CreateTermInfo;
    TermInfo.Slice := Slice;
    // Задаем режим передачи переменной в расчет
    TermInfo.Type := MsFormulaTermType.Pointwise;
    // Получаем внутреннее представление переменной в виде текста
    Inp := TermInfo.TermInnerText;
    // Получаем вторую входную переменную.
    // Она будет использоваться в качестве экзогенной переменной.
    TransVar := Transf.Inputs.Item(1);
    Slice := TransVar.Slices.Item(0);
    TermInfo := Transf.CreateTermInfo;
    TermInfo.Slice := Slice;
    // Задаем режим передачи переменной в расчет
    TermInfo.Type := MsFormulaTermType.Pointwise;
    // Получаем внутреннее представление переменной в виде текста
    Exogen := TermInfo.TermInnerText;
    // Получаем третью входную переменную.
    // Она будет использоваться в качестве инструментальной переменной.
    TransVar := Transf.Inputs.Item(2);
    Slice := TransVar.Slices.Item(0);
    TermInfo := Transf.CreateTermInfo;
    TermInfo.Slice := Slice;
    // Задаем режим передачи переменной в расчет
    TermInfo.Type := MsFormulaTermType.Pointwise;
    // Получаем внутреннее представление переменной в виде текста
    Instr := TermInfo.TermInnerText;
    // Получаем выражение расчета модели
    Expr := Determ.Expression;
    Expr.References := "Ms;Stat";
    // Задаем выражение расчета модели
    Expr.AsString := "TslsR(" + Inp + ", SetPeriod(2000,2015), Estimate," +
        "MsCasewise.Yes, " + Exogen + ", Null, " + Instr + ")";
    // Проверяем корректность выражения
    If Expr.Valid
        // Если выражение задано корректно, то сохраняем модель
        Then ModelObj.Save;
        // Если выражение некорректное, то выводим сообщение в окно консоли
        Else Debug.WriteLine("Модель не сохранена: ошибка в формуле");
    End If;
End Sub UserProc;

В результате выполнения примера модель будет выполнять моделирование первой входной переменной с помощью линейной регрессии (оценка методом инструментальных переменных). Значение константы оценивается автоматически, применяется обработка пропусков методом Casewise. Расчёт выполняется с помощью пакета R.

Пример использования в выражениях

TslsR({Чикаго - население[t]}, Null, Estimate, MsCasewise.No, {Мехико - уровень безработицы[t]}, Null, {Анкоридж - население[t]})

Результат: временной ряд «Чикаго - население» будет смоделирован на всем временном периоде методом линейной регрессии (оценка методом инструментальных переменных) по следующим параметрам: значение константы оценивается автоматически, экзогенная переменная - временной ряд «Мехико - уровень безработицы», инструментальная переменная - временной ряд «Анкоридж - население», обработка пропусков не применяется. Расчёт выполняется с помощью пакета R.