Support for Functions rob.dwt().

USAGE:

smoother.cleaner(y, scale=NULL, span=5, 
                 smooth.fun=function(x, m) median.smooth(x, m, endvalue=T), 
                 low.thresh=2.5, high.thresh=low.thresh) 
median.smooth(series, npts, endvalue = F) 

These are support for the functions rob.dwt(). They are not indended to be called directly by users.