使用时间序列和预测函数的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))