ExpSmoothR(Input: ITimeSeries;
Period:
IMsPeriod;
SeasonalEffect:
SeasonalityType;
SeasonalPeriod:
Integer;
Trend:
TrendType;
Alpha:
Variant;
Delta:
Variant;
Gamma:
Variant;
Phi:
Variant;
[Casewise:
MsCasewise = 0];
[GridStep:
Double = 0.1]): Variant;
ExpSmoothR(Input: Prognoz.Platform.Interop.Ms.ITimeSeries;
Period:
Prognoz.Platform.Interop.Ms.IMsPeriod;
SeasonalEffect: Prognoz.Platform.Interop.Stat.SeasonalityType;
SeasonalPeriod: integer;
Trend: Prognoz.Platform.Interop.Stat.TrendType;
Alpha: object;
Delta: object;
Gamma: object;
Phi:
object;
Casewise:
Prognoz.Platform.Interop.Ms.MsCasewise;
GridStep:
double;
Context:
Prognoz.Platform.Interop.Fore.ForeRuntimeContext): object;
Input. Переменная;
Period. Период, на котором рассчитывается метод. Если значение параметра Null, то метод рассчитывается на всём временном периоде;
SeasonalEffect. Модель сезонности;
SeasonalPeriod. Длина периода сезонности;
Trend. Модель роста;
Alpha. Коэффициент «Альфа»;
Delta. Коэффициент «Дельта»;
Gamma. Коэффициент «Гамма»;
Phi. Коэффициент «Фи»;
Casewise. Метод обработки пропусков;
GridStep. Шаг сетки;
Context. Контекст. Параметр используется только в Fore.NET.
Метод ExpSmoothR преобразует данные переменной методом экспоненциального сглаживания с помощью пакета R.
Для использования данного метода в репозитории должна быть настроена интеграция с R. Подробнее о том, как можно настроить интеграцию вы можете узнать в разделе «Как настроить интеграцию с R?».
Значение параметра SeasonalPeriod должно быть больше, либо равно четырем. Параметр учитывается, если используется аддитивная или мультипликативная модель сезонности;
Значения коэффициентов Alpha, Delta, Gamma, Phi могут быть заданы пользователем, либо оценены автоматически. Для автоматической оценки значений используйте метод IModelling.Estimate;
Значение параметра Delta учитывается, если используется аддитивная или мультипликативная модель сезонности;
Значение параметра Gamma учитывается, если используется аддитивная или экспоненциальная модель роста;
Значение параметра Phi учитывается, если используется затухающая модель роста;
Casewise. Необязательный параметр. По умолчанию обработка пропусков не используется.
Для выполнения примера предполагается наличие в репозитории контейнера моделирования с идентификатором «MS». В данном контейнере содержится модель с идентификатором «MODEL_D», рассчитываемая методом детерминированного уравнения и содержащая хотя бы одну входную переменную.
В репозитории должна быть настроена интеграция с R. Подробнее о том, как можно настроить интеграцию вы можете узнать в разделе «Как настроить интеграцию с R?».
Добавьте ссылки на системные сборки: Metabase, Ms.
Sub UserExpSmoothR;
Var
Mb: IMetabase;
ModelSpace, ModelObj: IMetabaseObject;
Transf: IMsFormulaTransform;
Formula: IMsFormula;
Model: IMsModel;
Determ: IMsDeterministicTransform;
TransVar: IMsFormulaTransformVariable;
Slice: IMsFormulaTransformSlice;
TermInfo: IMsFormulaTermInfo;
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;
// Получаем выражение расчета модели
Expr := Determ.Expression;
Expr.References := "Ms;Stat";
// Задаем выражение расчета модели
Expr.AsString := "ExpSmoothR(" + TermInfo.TermInnerText + ", SetPeriod(" +
"""" + "01.01.2000" + """" + "," + """" + "01.01.2015" + """" +
"), SeasonalityType.Additive, 4, TrendType.Damped, " +
"0.15, Estimate, Estimate, Estimate, MsCasewise.Yes, 0.2)";
// Проверяем корректность выражения
If Expr.Valid
// Если выражение задано корректно, то сохраняем модель
Then ModelObj.Save;
// Если выражение некорректное, то выводим сообщение в окно консоли
Else Debug.WriteLine("Модель не сохранена: ошибка в формуле");
End If;
End Sub UserExpSmoothR;
После выполнения примера модель будет осуществлять преобразование первой входной переменной методом экспоненциального сглаживания. Расчёт будет выполнен с помощью пакета R.
Необходимые требования и результат выполнения примера Fore.NET совпадают с примером Fore.
Imports Prognoz.Platform.Interop.Ms;
Imports Prognoz.Platform.Interop.ForeSystem;
…
Public Shared Sub Main(Params: StartParams);
Var
Mb: IMetabase;
ModelSpace, ModelObj: IMetabaseObject;
Transf: IMsFormulaTransform;
Formula: IMsFormula;
Model: IMsModel;
Determ: IMsDeterministicTransform;
TransVar: IMsFormulaTransformVariable;
Slice: IMsFormulaTransformSlice;
TermInfo: IMsFormulaTermInfo;
Expr: IExpression;
Begin
// Получаем репозиторий
Mb := Params.Metabase;
// Получаем контейнер моделирования
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.mfttPointwise;
// Получаем выражение расчета модели
Expr := Determ.Expression;
Expr.References := "Ms;Stat";
// Задаем выражение расчета модели
Expr.AsString := "ExpSmoothR(" + TermInfo.TermInnerText + ", SetPeriod(" +
"""" + "01.01.2000" + """" + "," + """" + "01.01.2015" + """" +
"), SeasonalityType.Additive, 4, TrendType.Damped, " +
"0.15, Estimate, Estimate, Estimate, MsCasewise.Yes, 0.2)";
// Проверяем корректность выражения
If Expr.Valid
// Если выражение задано корректно, то сохраняем модель
Then ModelObj.Save();
// Если выражение некорректное, то выводим сообщение в окно консоли
Else System.Diagnostics.Debug.WriteLine("Модель не сохранена: ошибка в формуле");
End If;
End Sub;
Выражение 1:
ExpSmoothR({Чикаго - население[t]}, SetPeriod("2000", "2015"), SeasonalityType.Additive , 4, TrendType.Linear, 0.1, 0, 0.1, 0)
Результат: для временного ряда «Чикаго - население» будет выполнено экспоненциальное сглаживание по следующим параметрам: период расчета метода - 2000-2015, используется аддитивная модель сезонности, длина периода сезонности - «4», значение коэффициентов Дельта и Фи - «0», Альфа и Гамма - «0,1». Расчет выполняется с помощью пакета R.
Применение: можно использовать в формулах вычисляемых рядов базы данных временных рядов и в формулах моделей контейнера моделирования, являющегося дочерним по отношению к базе данных временных рядов.
Выражение 2:
ExpSmoothR(X1, Null, SeasonalityType.Additive, 4,TrendType.Linear, 0.2, 0, 0.2, 0, MsCasewise.No, 0.2)
Результат: для фактора «X1» будет выполнено экспоненциальное сглаживание по следующим параметрам: расчет выполняется на всем временном периоде, используется аддитивная модель сезонности, длина периода сезонности - «4», значение коэффициентов «Дельта» и «Фи» - «0», «Альфа» и «Гамма» - «0,2», обработка пропусков не используется, значение шага сетки - «0,2». Расчет выполняется с помощью пакета R.
Применение: можно использовать в формулах моделей контейнера моделирования.
См. также:
IModelling | Метод экспоненциального сглаживания | База данных временных рядов: калькулятор, Экспоненциальное сглаживание | Контейнер моделирования: модель «Экспоненциальное сглаживание», редактирование регрессора/формулы