Détection de la fraude en R
Bart Baesens
Professor Data Science at KU Leuven



La fraude est un crime peu fréquent, réfléchi, subtilement dissimulé, évolutif dans le temps et souvent bien organisé, qui prend de multiples formes.









Après une grosse tempête, une compagnie d'assurance a reçu de nombreuses réclamations
Le pourcentage de fraudes peut être obtenu avec
table() et prop.table()prop.table(table(...)) pour calculer la proportion de fraude
prop.table(table(fraud_label))
0 1
0.9911 0.0089
labels <- c("no fraud", "fraud")
labels <- paste(labels, round(100 * prop.table(table(fraud_label)), 2), "%")
pie(table(fraud_label), labels, col = c("blue", "red"),
main = "Pie chart of storm claims")

Utilisée pour évaluer un modèle de détection de fraude :

predictions <- rep.int(0, times = nrow(claims))
predictions <- factor(predictions, levels = c("no fraud", "fraud"))
confusionMatrix() du paquet caret :library(caret)
confusionMatrix(data = predictions, reference = fraud_label)
Reference
Prediction 0 1
0 614 14
1 0 0
Accuracy : 0.9777
> total_cost <- sum(claim_amount[fraud_label == "fraud"])
> print(total_cost)
2301508
Détection de la fraude en R