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