sto: soft shresholding operater
In xzheng-ac/scPADGRN: A PADMM approach for reconstructing DGRN using scRNA-seq

Description Usage Arguments Value Examples

Run 'soft shresholding operater'.

1	sto(M, lambda, rho)

`M`	M is a numerical matrix.
`lambda`	lambda is the tuning parameter in math model.
`rho`	rho is also the tuning parameter in math model.

Matrix M is operated by soft threshold operator, and matrix B is the result.

##---- Should be DIRECTLY executable !! ----
##-- ==>  Define data, use random,
##--	or do  help(data=index)  for the standard data sets.

## The function is currently defined as
function (M, lambda, rho)
{
    k <- lambda/rho
    B <- M
    B[which(as.matrix(abs(M)) <= k)] <- 0
    B[which(as.matrix(M) > k)] <- B[which(as.matrix(M) > k)] -
        k
    B[which(as.matrix(M) < -k)] <- B[which(as.matrix(M) < -k)] +
        k
    return(B)
  }