R/top.R

Defines functions top

Documented in top

top <-
function(x, thresh, sorted_vect){
  v=sorted_vect[thresh]
  ifelse(abs(x)>v,x,0)
}

Try the WLasso package in your browser

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

WLasso documentation built on Aug. 13, 2020, 5:06 p.m.