ISmCointegratingRegression.Forecast

Синтаксис Fore

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

Forecast: Prognoz.Platform.Interop.Stat.IForecast;

Описание

Свойство Forecast возвращает спрогнозированный ряд и его доверительные границы.

Пример Fore

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

Sub UserProc;
Var
    CointReg: SmCointegratingRegression;
    x: ISlSerie;
    can, fra, ger, ita, jpn, uk, us: Array[20] Of Double;
    FirstPoint, LastPoint: Integer;
    i, res: Integer;
    d0: Double;
Begin
    CointReg := New SmCointegratingRegression.Create;
     // задаем значения переменных
    can[00] := 6209; fra[00] := 4110; ger[00] := 3415; ita[00] := 2822; jpn[00] := 1475; uk[00] := 5320; us[00] := 8680;
    can[01] := 6385; fra[01] := 4280; ger[01] := 3673; ita[01] := 3023; jpn[01] := 1649; uk[01] := 5484; us[01] := 9132;
    can[02] := 6752; fra[02] := 4459; ger[02] := 4013; ita[02] := 3131; jpn[02] := 1787; uk[02] := 5517; us[02] := 9213;

    can[03] := 6837; fra[03] := 4545; ger[03] := 4278; ita[03] := 3351; jpn[03] := 1884; uk[03] := 5791; us[03] := 9450;
    can[04] := 6495; fra[04] := 4664; ger[04] := 4577; ita[04] := 3463; jpn[04] := 1972; uk[04] := 5971; us[04] := 9177;
    can[05] := 6907; fra[05] := 4861; ger[05] := 5135; ita[05] := 3686; jpn[05] := 2108; uk[05] := 6158; us[05] := 9756;
    can[06] := 7349; fra[06] := 5195; ger[06] := 5388; ita[06] := 3815; jpn[06] := 2249; uk[06] := 6238; us[06] := 9756;
    can[07] := 7213; fra[07] := 5389; ger[07] := 5610; ita[07] := 3960; jpn[07] := 2394; uk[07] := 6322; us[07] := 9724;
    can[08] := 7061; fra[08] := Double.Nan; ger[08] := 5787; ita[08] := 4119; jpn[08] := 2505; uk[08] := 6340; us[08] := 9476;
    can[09] := 7180; fra[09] := 5610; ger[09] := 6181; ita[09] := 4351; jpn[09] := 2714; uk[09] := 6569; us[09] := 9913;
    can[10] := Double.Nan; fra[10] := 5948; ger[10] := 6633; ita[10] := 4641; jpn[10] := Double.Nan; uk[10] := 6813; us[10] := 9974;
    can[11] := Double.Nan; fra[11] := 6218; ger[11] := 6910; ita[11] := 5008; jpn[11] := Double.Nan; uk[11] := 6974; us[11] := 10046;
    can[12] := Double.Nan; fra[12] := 6521; ger[12] := 7146; ita[12] := 5305; jpn[12] := Double.Nan; uk[12] := 6994; us[12] := 10467;
    can[13] := 7722; fra[13] := 6788; ger[13] := 7248; ita[13] := 5611; jpn[13] := 4008; uk[13] := 7220; us[13] := 10740;
    can[14] := 8088; fra[14] := 7222; ger[14] := 7689; ita[14] := 5693; jpn[14] := 4486; uk[14] := 7570; us[14] := 11157;
    can[15] := 8516; fra[15] := 7486; ger[15] := 8046; ita[15] := 5804; jpn[15] := 4663; uk[15] := 7686; us[15] := 11738;
    can[16] := 8941; fra[16] := 7832; ger[16] := 8143; ita[16] := 6121; jpn[16] := 5115; uk[16] := 7811; us[16] := 12274;
    can[17] := 9064; fra[17] := 8153; ger[17] := 8064; ita[17] := 6546; jpn[17] := 5655; uk[17] := 8012; us[17] := 12450;
    can[18] := 9380; fra[18] := 8468; ger[18] := 8556; ita[18] := 6918; jpn[18] := 6358; uk[18] := 8265; us[18] := 12874;
    can[19] := 9746; fra[19] := 9054; ger[19] := 9177; ita[19] := 7349; jpn[19] := 6995; uk[19] := 8326; us[19] := 13135;
     // период идентификации
    CointReg.ModelPeriod.FirstPoint := 1;
    CointReg.ModelPeriod.LastPoint := 15;

     // прогноз
    CointReg.Forecast.LastPoint := 20;
     // исходный ряд
    CointReg.Explained.Value := can;
     // коинтегрирующие регрессоры
    CointReg.CointegratingRegressors.Clear;
    x := CointReg.CointegratingRegressors.Add;
    x.Value := fra;
    x := CointReg.CointegratingRegressors.Add;
    x.Value := jpn;
     // детерминированные регрессоры
    x := CointReg.DeterministicRegressors.Add;
    x.Value := ger;
    x := CointReg.DeterministicRegressors.Add;
    x.Value := uk;
     // дополнительные регрессоры
    CointReg.AdditionalRegressors.Clear;
    x := CointReg.AdditionalRegressors.Add;
    x.Value := ita;
    x := CointReg.AdditionalRegressors.Add;
    x.Value := us;
     // спецификация тренда
    CointReg.TrendSpecification := TrendSpecificationType.ConstLinear;
     // метод оценивания
    CointReg.EstimationMethod := CREstimationMethodType.DOLS;
     // количество лагов для метода DOLS
    CointReg.Lags := 1;

     // количество опережений для метода DOLS
    CointReg.Leads := 1;
     // метод обработки пропусков
    CointReg.MissingData.Method := MissingDataMethod.Casewise;
     // учет при расчете доверительных границ, что коэффициенты найдены приблизительно
    CointReg.Forecast.CoefUncertaintyInSECalc := True;
     // расчет модели
    res := CointReg.Execute;
    Debug.WriteLine(CointReg.Errors);
    For i := 0 To CointReg.WarningsCount - 1 Do
        Debug.WriteLine(CointReg.Warnings[i]);
    End For;
    FirstPoint := CointReg.ModelPeriod.FirstPoint;
    LastPoint := CointReg.ModelPeriod.LastPoint;
    Debug.WriteLine("Прогнозный ряд");
    Debug.Indent;
    For i := 0 To CointReg.Forecast.Value.Length - 1 Do
        d0 := CointReg.Forecast.Value[i];
        Debug.Write(i.ToString + " ");
        Debug.WriteLine(d0);
    End For;

    Debug.Unindent;
    Debug.WriteLine("Верхняя доверительная граница:");
    Debug.Indent;
    For i := FirstPoint To LastPoint - 1 Do
        d0 := CointReg.Forecast.UpperConfidenceLevel[i];
        Debug.WriteLine(i.ToString + " " + d0.ToString);
    End For;
    Debug.Unindent;
    Debug.WriteLine("Нижняя доверительная граница");
    Debug.Indent;
    For i := FirstPoint To LastPoint - 1 Do
        d0 := CointReg.Forecast.LowerConfidenceLevel[i];
        Debug.WriteLine(i.ToString + " " + d0.ToString);
    End For;
    Debug.Unindent;
End Sub UserProc;

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

период идентификации;
параметры прогноза;
спецификация тренда в основной и дополнительной регрессиях;
метод оценивания;
метод обработки пропусков.

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

Пример Fore.NET

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

Imports Prognoz.Platform.Interop.Stat;
…
Public Shared Sub Main(Params: StartParams);
Var
    CointReg: SmCointegratingRegression;
    x: ISlSerie;
    can, fra, ger, ita, jpn, uk, us: Array[20] Of Double;
    FirstPoint, LastPoint: Integer;
    Warnings, Value, UpConfLevel, LowConfLevel: Array;
    i, res: Integer;
    d0: Double;
Begin
    CointReg := New SmCointegratingRegression.Create();
     // задаем значения переменных
    can[00] := 6209; fra[00] := 4110; ger[00] := 3415; ita[00] := 2822; jpn[00] := 1475; uk[00] := 5320; us[00] := 8680;
    can[01] := 6385; fra[01] := 4280; ger[01] := 3673; ita[01] := 3023; jpn[01] := 1649; uk[01] := 5484; us[01] := 9132;
    can[02] := 6752; fra[02] := 4459; ger[02] := 4013; ita[02] := 3131; jpn[02] := 1787; uk[02] := 5517; us[02] := 9213;

    CointReg.ModelPeriod.LastPoint := 15;
     // прогноз
    CointReg.Forecast.LastPoint := 20;
     // исходный ряд
    CointReg.Explained.Value := can;
     // коинтегрирующие регрессоры
    CointReg.CointegratingRegressors.Clear();
    x := CointReg.CointegratingRegressors.Add();
    x.Value := fra;
    x := CointReg.CointegratingRegressors.Add();
    x.Value := jpn;
     // детерминированные регрессоры
    x := CointReg.DeterministicRegressors.Add();
    x.Value := ger;
    x := CointReg.DeterministicRegressors.Add();
    x.Value := uk;
     // дополнительные регрессоры
    CointReg.AdditionalRegressors.Clear();
    x := CointReg.AdditionalRegressors.Add();
    x.Value := ita;
    x := CointReg.AdditionalRegressors.Add();
    x.Value := us;

     // спецификация тренда
    CointReg.TrendSpecification := TrendSpecificationType.tstNoneNone;
     // метод оценивания
    CointReg.EstimationMethod := CREstimationMethodType.cremtDOLS;
     // количество лагов для метода DOLS
    CointReg.Lags := 1;
     // количество опережений для метода DOLS
    CointReg.Leads := 1;
     // метод обработки пропусков
    CointReg.MissingData.Method := MissingDataMethod.mdmCasewise;
     // учет при расчете доверительных границ, что коэффициенты найдены приблизительно
    CointReg.Forecast.CoefUncertaintyInSECalc := True;
     // расчет модели
    res := CointReg.Execute();
    Warnings := CointReg.Warnings;
    System.Diagnostics.Debug.WriteLine(CointReg.Errors);
    For i := 0 To CointReg.WarningsCount - 1 Do
        System.Diagnostics.Debug.WriteLine(Warnings[i]);
    End For;
    FirstPoint := CointReg.ModelPeriod.FirstPoint;
    LastPoint := CointReg.ModelPeriod.LastPoint;
    System.Diagnostics.Debug.WriteLine("Прогнозный ряд");
    Value := CointReg.Forecast.Value;
    System.Diagnostics.Debug.Indent();

    For i := FirstPoint To LastPoint - 1 Do
        d0 := Value[i] As double;
        System.Diagnostics.Debug.Write(i.ToString() + " ");
        System.Diagnostics.Debug.WriteLine(d0);
    End For;
    System.Diagnostics.Debug.Unindent();
    System.Diagnostics.Debug.WriteLine("Верхняя доверительная граница:");
    UpConfLevel := CointReg.Forecast.UpperConfidenceLevel;
    System.Diagnostics.Debug.Indent();
    For i := FirstPoint To LastPoint - 1 Do
        d0 := UpConfLevel[i] As double;
        System.Diagnostics.Debug.WriteLine(i.ToString() + " " + d0.ToString());
    End For;
    System.Diagnostics.Debug.Unindent();
    System.Diagnostics.Debug.WriteLine("Нижняя доверительная граница");
    LowConfLevel := CointReg.Forecast.LowerConfidenceLevel;
    System.Diagnostics.Debug.Indent();
    For i := FirstPoint To LastPoint - 1 Do
        d0 := LowConfLevel[i] As double;
        System.Diagnostics.Debug.WriteLine(i.ToString() + " " + d0.ToString());
    End For;
    System.Diagnostics.Debug.Unindent();
End Sub;

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

См. также: