R/uh.bu.R

Defines functions uh.bu

Documented in uh.bu

uh.bu <-
function(x, stretch = length(x)) {
sigma <- mad(diff(x)/sqrt(2))
x.d <- best.unbal.haar.bu(x, stretch)
x.d.t <- hard.thresh.bu(x.d, sigma)
x.d.t.r <- reconstr.bu(x.d.t)
return(x.d.t.r)
}

Try the unbalhaar package in your browser

Any scripts or data that you put into this service are public.

unbalhaar documentation built on May 29, 2017, 12:38 p.m.