转换为循环以应用族功能以获得更好的性能

Question

以下是我接下来30天的预测。如果输入数据大约为100k，则for循环非常慢（大约需要2个小时）。使用for循环的代码如下。

ns<-ncol(TS) # count number of columns to run the loop

output<-matrix(NA,nrow=30,ncol=ns) 

for (i in 2:ns)
{   
  output[,i]<- forecast(auto.arima(TS[,i],allowmean = T,D=1),h=30 )$mean 
  i=i+1
}

我尝试如下使用lapply，但是运行时间保持不变。

lapply(TS, function(x) forecast(auto.arima(x,allowmean = T,D=1),h=30 ))

是否可以使用其他功能/方法来提高性能？