R/soft_thr.R
In SuperPCA: Supervised Principal Component Analysis

soft_thr<-function(In, lambda){
  out <- sign(In)*pmax(abs(In) - lambda, 0)
  return(out)
}

Any scripts or data that you put into this service are public.

SuperPCA documentation built on July 26, 2021, 5:06 p.m.

Note that we can't provide technical support on individual packages. You should contact the package authors for that.

Try the SuperPCA package in your browser