在滚动窗口后创建预测矩阵

I have a data set like this:

我有这样的数据集:

data <- as.zoo(ts.union(a=arima.sim(model=list(ar=c(.9,-.2)), n=144), 
                        b=arima.sim(model=list(ar=c(.6, -.3)), n=144), 
                        c=arima.sim(model=list(ar=c(-.2,-.6)), n=144)))
data