Question

我正在将来自expsmooth软件包中的数据集与来自预测软件包中的预测功能结合起来。

#Example 1
    require("forecast")
    require("expsmooth") # required for the data

    # Fit an ETS model to the first 45 months - Training set
    Training_set_model <- ets(usnetelec[1:45])

    # Apply the same model to the last 10 months without re-estimating the parameters- Test set
    Test_set_model <- ets(usnetelec[46:55],model=Training_set_model)  #<--------------------------------

为了获得更准确的投影，我将数据集分为训练集和测试集。这里的主要思想是通过训练集自动选择模型，并通过测试集应用该模型。到目前为止，一切都很好：）但是当我想在矩阵中多次应用此代码时会发生问题。例如，我使用以下代码：

#Example 2
    library(fpp2)
    library(forecast)

    Data_Set<-uschange[,1:4]

    # Training set
    Training_set = window(Data_Set, start=1970, end=c(2010,4))

    # Test set
    Test_set = window(Data_Set, start=2011, end=c(2016,3))

    # Forecasting with Training set
    Forecast_Training_set<-lapply(Training_set, ets)

上部代码工作正常。但是问题在于上面的代码行需要像示例1一样使用测试集进行预测。

   # Forecasting with Test set
    Forecast_Test_set<- lapply(Test_set, ets(model=Forecast_Training_set)) #<-----------------------

所以有人可以帮助我如何修复此行代码，以便像先前的示例（带有Test_set_model示例1的代码行）那样获得预测。

预测和适应功能

0 个答案: