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)