R/loss.R

Defines functions ercls hubercls

hubercls <- function(r, delta) {
  (1 - r - 0.5 * delta) * (r <= 1 - delta)
  + 0.5 * (1 - r)^2 / delta * (r <= 1) * (r > 1 - delta)
}

ercls <- function(r, omega) {
  abs(omega - (r < 0)) * r^2
}

Try the gcdnet package in your browser

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

gcdnet documentation built on Aug. 14, 2022, 9:05 a.m.