R/huberWeightLS.R

huberWeightLS <-
function(data, k){
  w = k / abs(data)
  w[w>1] = 1
  return(w)
}

Try the RobRSVD package in your browser

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

RobRSVD documentation built on May 2, 2019, 9:39 a.m.