# NOT RUN {
X<-matrix(runif(10*100),10,100)
h<-tsvreq_classic(X)
res1<-aggts(h,h$ts[h$ts>=4])
res2<-aggts(h,h$ts[h$ts>=4 | h$ts<=4/3])
#res1 and res2 produce the same result
#because of Fourier symmetry around the
#Nyquist timescale - see Details
# }
Run the code above in your browser using DataLab