powered by
y
thld
hardTh(y, thld) softTh(y, thld)
sig <- makesig(SIGNAL.WERNER.SORROWS, 8) thld <- 1 x <- rwt:::hardTh(sig$x, thld)
Run the code above in your browser using DataLab