R/soft_threshold.R

Defines functions soft_threshold

soft_threshold<-function(a,b){
  if (1>b) {
    c=(1-b)*a;
  }
  else {
    c=0;
  }
}

Try the GEInter package in your browser

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

GEInter documentation built on May 20, 2022, 1:17 a.m.