powered by
Apply Soft Threshold
SoftThresh(y, t)
Noisy Data.
Threshold.
x filtered result (y 1_|y|>t).
x
HardThresh
# NOT RUN { f <- MakeSignal('HeaviSine', 2^3) qmf <- MakeONFilter('Daubechies', 10) L <- 0 wc <- FWT_PO(f, L, qmf) thr <- 2 wct <- SoftThresh(wc, thr) fsoft <- IWT_PO(wct, L, qmf) # }
Run the code above in your browser using DataLab