Vous avez entraîné deux modèles : l'un sur l'ensemble d'entraînement original (model_orig) et l'autre sur l'ensemble rééquilibré (model_smote). Les classes prédites pour les cas de l'ensemble test s'appellent respectivement predicted_class_orig et predicted_class_smote. Plutôt que de comparer des modèles de détection de fraude selon leur exactitude, il est préférable de calculer leur coût de détection.

Voici la définition de la fonction cost_model(). Parcourez-la pour comprendre comment le coût est calculé.

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

Connaissez-vous SMOTE?

Détection de la fraude en R

Exercice interactif pratique