R/soft.R

soft <-
function(y,thr){
    sign(y)*(abs(y)-thr)*(abs(y)>thr)
}
tomwhoooo/scca_3.0 documentation built on May 31, 2019, 6:20 p.m.