Den verkliga kostnaden för bedrägeridetektering

Du har byggt två modeller – en på det ursprungliga träningssetet (model_orig) och en på det ombalanserade träningssetet (model_smote). De predikterade klasserna för fallen i test-setet kallas predicted_class_orig respektive predicted_class_smote. I stället för att jämföra bedrägeridetekteringsmodeller utifrån deras noggrannhet är det bättre att beräkna detekteringskostnaden.

Här är definitionen av funktionen cost_model(). Granska den för att förstå hur kostnaden beräknas.

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)
}