R软件 报错Error in eval(predvars, data, env) : 堆叠上没有这么多的环境框

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

今天使用R做一个数据批量处理。
代码如下：
for(i in 1:nrow(tx))
{     l<-xx[which(xx$名称EX==tx$名称EX[i] & xx$均价==0),];
      if(nrow(l)>0)      
      { m<-X[which(X$名称EXE==tx$名称EXE[i] & X$日期==2013),];           
        if(nrow(m)>=2) { fit<-lm(m$单价~m$径) ;
                       for(j in 1:nrow(l)){ pp<-l$径[j] ;
                                                  z<-predict(fit,pp,interval='prediction',level=1) ;
                                                  l$均价[j]<-z[1]
                                                  }
                        };
                       for(k in 1:nrow(l)){ for(p in 1:nrow(xx)){if(xx$名称EX[p]==l$名称EX[k]) xx$均价[p]<-l$均价[k]
                                                                 }
                                           }
       }
}

出现报错：
Error in eval(predvars, data, env) : 堆叠上没有这么多的环境框
一时傻眼，百度之，未有答案。
求大神给小弟找出问题，或者给讲解一下堆叠和环境框也行！

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Error Pred vars eval Data Error 软件

代码字体好像有问题
for(i in 1:nrow(tx))
{     l<-xx[which(xx$名称EX==tx$名称EX & xx$均价==0),];
      if(nrow(l)>0)      
      { m<-X[which(X$名称EXE==tx$名称EXE & X$日期==2013),];           
        if(nrow(m)>=2) { fit<-lm(m$单价~m$径) ;
                       for(j in 1:nrow(l)){ pp<-l$径[j] ;
                                            z<-predict(fit,pp,interval='prediction',level=1) ;
                                            l$均价[j]<-z[1]
                                           }
                        };
                       for(k in 1:nrow(l)){ for(p in 1:nrow(xx)){if(xx$名称EX[p]==l$名称EX[k]) xx$均价[p]<-l$均价[k]
                                                                 }
                                           }
       }
}