#
# Let's use the lennon test image
#
data(lennon)
if (FALSE) image(lennon)
#
# Now let's do the 2D discrete wavelet transform using Daubechies'
# least-asymmetric wavelet N=6
#
lwd <- imwd(lennon, filter.number=6)
#
# Now let's threshold the 2D DWT
# The resultant class of object is imwdc object.
#
lwdT <- threshold(lwd)
#
# And now draw the wavelet that did this transform
#
if (FALSE) draw(lwdT)
#
# A nice little two-dimensional wavelet!
#
Run the code above in your browser using DataLab