# NOT RUN {
task = mlr_tasks$get("german_credit")
costs = matrix(c(0, 1, 5, 0), nrow = 2)
dimnames(costs) = list(predicted = task$class_names, truth = task$class_names)
measure = MeasureClassifCosts$new("german_credit_costs", costs)
print(measure)
# }
Run the code above in your browser using DataLab