R/expectile_if.R

In scoringfunctions: Loss Functions for Assessing Point Forecasts

Defines functions expectile_if

Documented in expectile_if

expectile_if <- function(x, y, p)
{
    2 * abs(as.numeric(x >= y) - p) * (x - y)
}

Try the scoringfunctions package in your browser