# NOT RUN {
#
# Generate some test data
#
test.data <- example.1()$y
#
# Do wavelet transform of test.data and plot the wavelet coefficients
#
wds <- wd(test.data)
# }
# NOT RUN {
plot(wds)
# }
# NOT RUN {
#
# Now let us set all the coefficients in ODD resolution levels equal to zero!
#
# This is just to illustrate the capabilities of the function. I cannot
# imagine you wanting to do this in practice!
##
wdsnl <- nullevels(wds, levelstonull = c(1, 3, 5, 7))
#
# Now let's plot the result
#
# }
# NOT RUN {
plot(wdsnl, scaling = "by.level")
# }
# NOT RUN {
#
# Lo and behold the odd levels have been set to zero!
# }
Run the code above in your browser using DataLab