Multiple Metrics
Provides a way to create a list of metrics/scoring functions/performance measures from a parametrized function like the Tweedie deviance or the elementary scoring functions for expectiles.
multi_metric(fun, ...)
fun |
A metric/scoring function/performance measure with additional parameter to be varied. |
... |
Further arguments passed to |
A named list of functions.
data <- data.frame(act = 1:10, pred = c(1:9, 12)) multi <- multi_metric(fun = deviance_tweedie, tweedie_p = c(0, seq(1, 3, by = 0.1))) performance(data, actual = "act", predicted = "pred", metrics = multi, key = "Tweedie p") multi <- multi_metric(fun = r_squared, deviance_function = deviance_tweedie, tweedie_p = c(0, seq(1, 3, by = 0.1))) performance(data, actual = "act", predicted = "pred", metrics = multi, key = "Tweedie p") multi <- multi_metric(fun = elementary_score_expectile, theta = 1:11, alpha = 0.1) performance(data, actual = "act", predicted = "pred", metrics = multi, key = "theta") multi <- multi_metric(fun = elementary_score_expectile, theta = 1:11, alpha = 0.5) performance(data, actual = "act", predicted = "pred", metrics = multi, key = "theta")
Please choose more modern alternatives, such as Google Chrome or Mozilla Firefox.