Skutečné náklady na odhalování podvodů

Sestavil/a jsi dva modely – jeden na původní trénovací sadě (model_orig) a druhý na přebalancované trénovací sadě (model_smote). Předpovězené třídy pro případy v testovací sadě test se nazývají predicted_class_orig a predicted_class_smote. Místo porovnávání modelů pro odhalování podvodů podle jejich přesnosti je lepší vypočítat náklady na detekci.

Níže je definice funkce cost_model(). Projdi si ji, abys pochopil/a, jak se náklady počítají.

cost_model <- function(predicted.classes, true.classes, amounts, fixedcost) {
  library(hmeasure)
  predicted.classes <- relabel(predicted.classes)
  true.classes <- relabel(true.classes)
  cost <- sum(true.classes * (1 - predicted.classes) * amounts + predicted.classes * fixedcost)
  return(cost)
}