Uses a cost matrix to create a classification measure. The cost matrix is stored as slot "costs". Costs are aggregated with the mean.
MeasureClassifCosts$new(costs = NULL, normalize = TRUE)
Identifier for the measure.
Numeric matrix of costs (truth in columns, predicted response in rows).
TRUE, calculate the mean costs instead of the total costs.
# get a cost sensitive task task = mlr_tasks$get("german_credit") # cost matrix as given on the UCI page of the german credit data set # https://archive.ics.uci.edu/ml/datasets/statlog+(german+credit+data) costs = matrix(c(0, 5, 1, 0), nrow = 2) dimnames(costs) = list(truth = task$class_names, predicted = task$class_names) print(costs)#> predicted #> truth good bad #> good 0 1 #> bad 5 0# mlr3 needs truth in columns, predictions in rows costs = t(costs) # create measure which calculates the absolute costs m = MeasureClassifCosts$new(id = "german_credit_costs", costs, normalize = FALSE) # fit models and calculate costs rr = resample(task, "classif.rpart", "cv3") rr$aggregate(m)#> german_credit_costs #> 329.3333