# NOT RUN {
x<-sort(runif(100))
y <-sin(2*pi*(1/25)*x) + sin(2*pi*(1/50)*x)
# }
# NOT RUN {
xy.dec<-cnlt.univ(x,y,P=300)
# compute the real part of the spectrum (real details^2) and smooth over scale
ReS <- smooth.over.scale(x, sapply(xy.dec$det1,Re), sapply(xy.dec$det1,Re), xy.dec$lre,
xy.dec$lreA, positive = TRUE)
# }
# NOT RUN {
# }
Run the code above in your browser using DataLab