# NOT RUN {
#
# Generate some test data
#
test.data <- example.1()$y
# }
# NOT RUN {
ts.plot(test.data)
# }
# NOT RUN {
#
# 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?
#
# }
# NOT RUN {
draw(tdwst)
# }
# NOT RUN {
#
# We get a picture of the wavelet that did the transform
#
# }
Run the code above in your browser using DataLab