Soft-thresholding operator, which is called by mbpca.
mbpca
softK(x, k)
x
A numerical vector
k
Number of non-zero elements want to keep
Chen Meng
v <- rnorm(10) softK(v, k = 2)