R/soft.R

In ecamenen/r-rgcca: RGCCA and Sparse GCCA for multi-block data analysis

Defines functions soft

Documented in soft

#' the function soft() encodes the soft-thresholding operator
#' @param x Float
#' @param d Float
#' @keywords internal
soft <-
function(x,d) return(sign(x)*pmax(0, abs(x)-d))