1. Učit se
    2. /
  2. Kurzy
    3. /
  3. Detekce podvodů v R
Connected

Cvičení

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

Pokyny

100 XP
  • Pomocí funkce cost_model() vypočítej skutečné náklady na nasazení modelu model_orig na testovací sadě s hodnotou fixedcost rovnou 10.
  • Pomocí funkce cost_model() vypočítej skutečné náklady na nasazení modelu model_smote na testovací sadě s hodnotou fixedcost rovnou 10.