R/soft.R

soft <- function(x, T) {
  y <- max(abs(x) - T, 0)
  return(y/(y+T) * x)
}
andrewzm/waveslim documentation built on May 10, 2019, 11:16 a.m.