An object of class wd.
The empirical scaling function coefficients are decomposed using the DWT with zero boundary conditions.
# Simulate data from the claw density, find the empirical # scaling function coefficients, decompose them and plot # the resulting wavelet coefficients data <- rclaw(100) datahr <- denproj(data, J=8, filter.number=2,family="DaubExPhase") data.wd <- denwd(datahr) plotdenwd(data.wd, top.level=(datahr$res$J-1))