eval_forecasts <- function()

in R_utils/model_eval.R [36:50]

• 15 lines of code
• 2 McCabe index (conditional complexity)

eval_forecasts <- function(fcast_df, gof=fabletools::MAPE)
{
    if(!is.function(gof))
        gof <- get(gof, mode="function")
    resp <- fcast_df$.response
    keyvars <- key_vars(fcast_df)
    indexvar <- index_var(fcast_df)
    fcast_df %>%
        as_tibble() %>%
        select(-all_of(c(keyvars, indexvar, ".response"))) %>%
        summarise_all(
            function(x, .actual) gof(x - .actual, .actual=.actual),
            .actual=resp
        )
}