#
# Do a multiple wavelet decomposition on vector: ynoise
#
ynoise <- rnorm(512, sd = 0.1)
ymwd <- mwd(ynoise,filter.type="Geronimo")
#
# Draw a picture of the second Geronimo wavelet.
#
if (FALSE) draw(ymwd,psi=2)
#
#
Run the code above in your browser using DataLab