powered by
soft.threshold(x, sumabs = 1)
x <- rnorm(10) soft.threshold(x,0.5)
Run the code above in your browser using DataLab