Costul nedetectării fraudei

Atunci când nu este utilizat niciun model de detecție, toate tranzacțiile din setul de date transfers sunt considerate legitime. Vei determina matricea de confuzie corespunzătoare. Deși frauda este rară, pierderile financiare rezultate pot fi uriașe. Vei calcula costul total al nedetectării transferurilor frauduloase.

Pachetul caret este deja încărcat pentru a construi funcția confusionMatrix(). Setul de date transfers este disponibil în spațiul tău de lucru – nu ezita să îl explorezi în Consolă.

Acest exercițiu face parte din cursul

Detecția fraudelor în R

Vezi cursul

Instrucțiuni pentru exercițiu

Folosește rep.int() pentru a crea un vector numit predictions în care toate transferurile sunt prezise ca legitime (clasa 0). Nu ezita să consulți slide-urile pentru a vedea cum a fost utilizată această funcție în videoclip.
Folosește funcția confusionMatrix() din pachetul caret pentru a calcula matricea de confuzie dintre predictions și coloana fraud_flag din transfers.
Calculează costul total al nedetectării fraudei ca sumă a valorilor transferurilor frauduloase.

Exercițiu interactiv practic

Încearcă acest exercițiu completând acest cod de exemplu.

# Create vector predictions containing 0 for every transfer
predictions <- factor(___(___, times = ___(___)), levels = c(0, 1))

# Compute confusion matrix
confusionMatrix(data = ___, reference = ___)

# Compute cost of not detecting fraud
cost <- sum(___[___ == ___])
print(cost)

Editează și rulează codul