R/soft.R

soft <- function(x, T) {
  y <- max(abs(x) - T, 0)
  return(y/(y+T) * x)
}

Try the waveslim package in your browser

Any scripts or data that you put into this service are public.

waveslim documentation built on May 2, 2019, 4:41 p.m.