wp.atom(x, crystal.names="", shift=1, wavelet="s8", boundary=NULL, pdeg=0, pfrac=0, precondition=F, dual=F, analysis.filter=NULL, synthesis.filter=NULL, ...)
atom <- wp.atom(wavelet="s8", block=1, level=0) plot(atom)atom <- wp.atom("s8", block=1, level=3) plot(atom)