powered by
mbpca
softK(x, k)
v <- rnorm(10) softK(v, k = 2)
Run the code above in your browser using DataLab