R/nse.R

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

Defines functions nse

Documented in nse

nse <- function(x, y)
{
    ref_meth <- mean(y)

    1 - mse(x = x, y = y)/mse(x = ref_meth, y = y)
}

Try the scoringfunctions package in your browser