# NOT RUN {
#
# Generate some test data
#
test.data <- example.1()$y
# }
# NOT RUN {
ts.plot(test.data)
# }
# NOT RUN {
#
# Now do the discrete wavelet transform of the data using the Daubechies
# least-asymmetric wavelet N=10 (the default arguments in
# wd).
#
tdwd <- wd(test.data)
#
# What happens if we try to draw this new tdwd object?
#
# }
# NOT RUN {
draw(tdwd)
# }
# NOT RUN {
#
# We get a picture of the wavelet that did the transform
#
# }
Run the code above in your browser using DataLab