#
# Generate some test data
#
test.data <- example.1()$y
if (FALSE) ts.plot(test.data)
#
# Now do the \code{packet-ordered non-decimated DWT} of the data using the Daubechies
# least-asymmetric wavelet N=10 (the default arguments in \code{\link{wst}}).
#
tdwst <- wst(test.data)
#
# What happens if we try to draw this new tdwst object?
#
if (FALSE) draw(tdwst)
#
# We get a picture of the wavelet that did the transform
#
Run the code above in your browser using DataLab