# NOT RUN {
#
# Generate some test data
#
test.data <- example.1()$y
# }
# NOT RUN {
ts.plot(test.data)
# }
# NOT RUN {
#
# Decompose test.data with multiple wavelet transform and
# plot the wavelet coefficients
#
tdmwd <- mwd(test.data)
# }
# NOT RUN {
plot(tdmwd)
# }
# NOT RUN {
#[1] 1.851894 1.851894 1.851894 1.851894 1.851894 1.851894 1.851894
#
# You should see a plot with wavelet coefficients like in
#\code{\link{plot.wd}} but at each coefficient position
# there are two coefficients in two different colours one for each of
# the wavelets at that position.
#
# Note the scale for each level is returned by the function.
# }
Run the code above in your browser using DataLab