使用時間序列和預測功能的R函數

Question

交易如下：我有一個14列20行的數據框。 我想在每個列上應用預測函數，並追加與每個列相對應的11行。 最好的方法是什么？

換句話說，20 * 14數據幀變為31 * 14數據幀。

這是我希望應用的功能：

time_series <- ts(summary, frequency=7, start=c(1,1)
for(i in 1:ncol(time_series))
{
  forecast(time_series[,i],11)
}

原始數據框為：摘要

請幫忙。 我可以手動迭代並執行此操作，但我想更有效地執行此操作。

Answer 1

您可以嘗試通常的sapply ：

  new.df<-rbind(time_series, sapply(time_series, function(x){ forecast(x,11)$mean }))
  new.time_series <- ts(new.df, frequency=7, start=c(1,1))