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>
}