R/top_thresh.R

Defines functions top_thresh

Documented in top_thresh

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

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.