# 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)
if (FALSE) plotdenwd(data.wd, top.level=(datahr$res$J-1))
Run the code above in your browser using DataLab