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



La fraude est un crime rare, réfléchi, subtilement dissimulé, évolutif dans le temps et souvent soigneusement organisé, qui prend de nombreuses formes.









Après une violente tempête, une compagnie d'assurance reçoit de nombreux sinistres
Le pourcentage de fraudes se calcule avec
table() et prop.table()prop.table(table(...)) pour déterminer 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 package 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 fraude en R