通过培训进行预测，并通过预测包进行测试集

Question

我正在将fpp2软件包中的数据集与预测软件包中的预测功能结合在一起，然后将数据集（MY_DATA）分为训练集和测试集。

   #INPUT DATA
         MY_DATA<-uschange[,1:4]
          head(MY_DATA)
          tail(MY_DATA)

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

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

因此，我的意图是从预测包中自动选择具有ets函数的模型，然后将所有这些模型与测试集数据一起应用。

# Forecasting with Training set
    FORECASTING_LIST_ETS<-lapply(Training_set, ets)
    ETS_MODELS_ALL<-lapply(FORECASTING_LIST_ETS,forecast) 
    ACCURANCY_LIST_ETS <- lapply(FORECASTING_LIST_ETS,accuracy)  

所以我已经成功完成了训练集，但是我对测试集有疑问。我尝试了这一行代码，但不正确。

 FORECASTING_LIST_ETS1 <- lapply(Test_set,lapply(FORECASTING_LIST_ETS[[","model"))

实际上，我希望这段代码能够应用从FORECASTING_LIST_ETS中选择的所有模型 测试集数据。有人可以帮助我解决这个问题吗？