Biaya nyata deteksi kecurangan

Anda telah membangun dua model pada himpunan data latih asli (model_orig) dan himpunan data latih yang diseimbangkan kembali (model_smote). Kelas yang diprediksi untuk kasus pada himpunan test masing-masing disebut predicted_class_orig dan predicted_class_smote. Alih-alih membandingkan model deteksi kecurangan berdasarkan akurasinya, lebih baik menghitung biaya deteksinya.

Berikut adalah definisi fungsi cost_model(). Tinjau untuk memahami cara biaya dihitung.

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