# NOT RUN {
## plot the zero phase shifted MODWT of a linear
## chirp sequence
linchirp <- make.signal("linchirp", n=1024)
plot(wavShift(wavMODWT(linchirp, wavelet="s8",
n.levels=4, keep.series=TRUE)))
# }
Run the code above in your browser using DataLab