Last chance! 50% off unlimited learning
Sale ends in
denwd(coef)
denproj
wd.object
denproj
,plotdenwd
,wd
,
denwr
# 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))
Run the code above in your browser using DataLab