Kostnaden för att missa bedrägerier

När ingen detekteringsmodell används betraktas alla transaktioner i datamängden transfers som legitima. Du ska nu bestämma motsvarande konfusionsmatris. Trots att bedrägerier är sällsynta kan de ekonomiska förlusterna bli mycket stora. Du ska beräkna den totala kostnaden för att inte upptäcka de bedrägliga överföringarna.

Paketet caret är redan inläst så att du kan använda confusionMatrix(). Datamängden transfers finns i din arbetsmiljö – utforska den gärna i konsolen.

Den här övningen är en del av kursen

Bedrägeridetektering i R

Visa kurs

Övningsinstruktioner

Använd rep.int() för att skapa en vektor kallad predictions där alla överföringar förutsägs som legitima (klass 0). Ta gärna en titt på Slides för att se hur funktionen användes i videon.
Använd funktionen confusionMatrix() från paketet caret för att beräkna konfusionsmatrisen för predictions och kolumnen fraud_flag från transfers.
Beräkna den totala kostnaden för att inte upptäcka bedrägerier som summan av de bedrägligt överförda beloppen.

Interaktiv övning med praktiskt arbete

Testa den här övningen genom att slutföra den här exempelkoden.

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

Redigera och kör kod