R/shrink.R

Defines functions shrink

shrink <- function(u, v){
  
  
  (1 + sign(u - v))/2*(u - v) - (1 + sign(-u - v))/2*(-u-v)
  
  
  
}
Scott-Coggeshall/bigrq documentation built on Dec. 13, 2020, 7:49 a.m.