R/loss.R

Defines functions huberreg

huberreg <- function(r, delta) {
  0.5 * r^2 * (abs(r) <= delta) + delta * (abs(r) - delta/2) * (abs(r) > delta)
} 
emeryyi/rome documentation built on May 6, 2019, 9:53 a.m.