powered by
softhreshold
softhreshold(x, lambda)
x <- seq(-10,10,1) softhreshold(x,lambda=3)
Run the code above in your browser using DataLab