wp.costs.2d(x, cost.fun="entropy", wavelet="s8", n.levels=4, boundary="periodic", precondition=F, dual=F, analysis.filter=NULL, synthesis.filter=NULL, scale=NULL, thresh=NULL, p=2, prob=.5)
Available cost functionals:
phone <- phone-mean(phone) wcost <- wp.costs.2d(phone, wavelet="s8", n.levels=3) bb2 <- best.basis(wcost, data=phone) bb2 plot(bb2)