R/soft.R

In Tenenhaus/RGCCA: Regularized and Sparse Generalized Canonical Correlation Analysis for Multiblock Data

#' the function soft() encodes the soft-thresholding operator
#' @param x numeric vector on which soft-thresholding is applied
#' @param d numeric, threshold
#' @noRd
soft <- function(x, d) {
  return(sign(x) * pmax(0, abs(x) - d))
}