大佬，帮忙看看代码怎么回事

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

for(i in seq_along(mins)){<br>
      ind.day<-substr(index(rtn[[i]]),1,10)<br>
      rv[,i]<-aggregate(rtn[[i]],ind.day,sumsq)<br>
      ind.time<-substr(index(rtn[[i]]),12,19)<br>
      lambda<-aggregate(rtn[[i]],ind.time,sumsq)/sum(rtn[[i]]^2)<br>
      ind.time<-index(lambda)[lambda!=0]<br>
      ind<-substr(index(rtn[[i]]),12,19) %in% ind.time<br>
      rtn.f<-rtn[[i]][ind]<br>
      ind.day<-substr(index(rtn.f),1,10)<br>
      N＜－length(ind.time)<br>
     lambda<-as.numeric(lambda)[lambda!=0]<br>
      weight<-1/(N*lambda)<br>
      weight<-weight/sun(weight)*N<br>
      wrv[,i]<-aggregate(rtn.f,ind.day,wsumsq,w=weight)<br>
}

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：Aggregate numeric Lambda Weight SUBSTR