R/huberquantile_if.R

In scoringfunctions: Loss Functions for Assessing Point Forecasts

Defines functions huberquantile_if

Documented in huberquantile_if

huberquantile_if <- function(x, y, p, a, b)
{
    (abs(as.numeric(x >= y) - p)) * (capping_function(t = x - y, a = a, b = b))
}

Try the scoringfunctions package in your browser