example(wd)
## Set all the wavelet coefficients to zero
for(i in 0:(wds$nlevels - 1))
wds <- putC(wds, level=i, v=rep(0,2^i))
## and now see what you've done
plot(wds)
matplot(x, cbind(wr(wd(y)), wr(wds)), type = 'l')
Run the code above in your browser using DataLab