R/huber_sf.R

In scoringfunctions: A Collection of Loss Functions for Assessing Point Forecasts

Defines functions huber_sf

Documented in huber_sf

huber_sf <- function(x, y, a)
{
    err <- x - y

    cf <- capping_function(t = err, a = a, b = a)

    cf * (err - cf/2)
}

Try the scoringfunctions package in your browser