减少R中的脚本执行时间

Question

我目前正在进行预测时间序列分析。最近开始使用R.你可以帮我优化一下由step参数指定的前一行的功能，并将它们放在与当前观察相同的行中。

问题在于需要很长时间。我使用函数cbind()和rbind()，我怀疑问题在于它们。也可能是因为我使用的是data.frame。任何反馈将不胜感激！ 我的代码：

lastValAsFeatures=function(obj, step=2)
{
 res=1:(step*ncol(obj))
 pb <- txtProgressBar(min = 0, max = nrow(obj), style = 3)
 n=ncol(obj)
 for(i in step: nrow(obj))
{
  ftrs=0
  for(j in (i-step+1):(i-1))
 {
    ftrs=cbind(ftrs, obj[j,])
 }
ftrs=ftrs[,-1]
res=rbind(res,cbind(obj[i,], ftrs))
setTxtProgressBar(pb, i)
}
res=res[-1,]
close(pb)
return(as.data.frame(res))
}