出样本滚动窗口预测R.

Question

我正在尝试使用线性回归的滚动窗口。我不知道如何将预测的输出存储到变量中，我可以用它来绘制蚂蚁等等。

<script src="https://ajax.googleapis.com/ajax/libs/jquery/1.9.0/jquery.min.js"></script>
<input type="text" value="1px" name="border-width">
<select name="border-style">
  <option value="none">None</option>
  <option value="solid">Solid</option>
  <option value="dotted">Dotted</option>
  <option value="dash">Dashed</option>
</select>

<input type="text" value="green" name="border-color">
    
<div class="button"></div>

我收到此消息：

predict.1 <- function(P){

  results <- rep(0, P)

  for( i in 0:2){

    y1<-window(y,start=1937+i,end=1966+i)
    x1<-window(ll,start=1937+i,end=1966+i)
    dx2<-window(ll,start=1937+i,end=1966+i)
    in.sample<-data.frame(y1,x1,x2)
    names(in.sample)<-c("Outcome","Predictor1","Predictor2")
    x1.pred<-window(x1,start=1967+i,end=1967+i)
    x2.pred<-window(x2,start=1967+i,end=1967+i)
    out.sample<-data.frame(x1.pred,x2.pred)
    new.data<-out.sample
    names(new.data)<-c("Predictor1","Predictor2")
    results[i]<-predict(lm(Outcome~Predictor1+Predictor2,data=in.sample),new.data,se.fit=TRUE)  

  }
  results
}

我不知道如何克服这个问题。