R ile Dolandırıcılık Tespiti
Bart Baesens
Professor Data Science at KU Leuven



Dolandırıcılık, ender, planlı, fark edilmesi güç gizlenen, zamanla değişen ve çoğu kez özenle örgütlenen, çeşitli tür ve biçimlerde görülen bir suçtur.









Büyük bir fırtına sonrası, bir sigorta şirketine çok sayıda talep geldi
Verideki dolandırıcılık yüzdesini şu fonksiyonlarla bulabilirsin:
table() ve prop.table()Dolandırıcılık oranını bulmak için prop.table(table(...))
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")

Dolandırıcılık tespit modelini değerlendirmek için kullanılır:

predictions <- rep.int(0, times = nrow(claims))
predictions <- factor(predictions, levels = c("no fraud", "fraud"))
caret paketindeki confusionMatrix() fonksiyonu: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
R ile Dolandırıcılık Tespiti