HardThresh | R Documentation |
Apply Hard Threshold
HardThresh(y, t)
y |
Noisy Data. |
t |
Threshold. |
x
filtered result (y 1_|y|>t).
SoftThresh
.
f <- MakeSignal('HeaviSine',2^3)
qmf <- MakeONFilter('Daubechies', 10)
L <- 0
wc <- FWT_PO(f, L, qmf)
thr <- 2
wct <- HardThresh(wc, thr)
fhard <- IWT_PO(wct, L, qmf)
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.