yweekly=yt168-yt0

i<-0
j<-0
for (i in nrow(DT)){
aux[j]<-DT$value[i+167]-DT$value[i]
i<-i+168}