Koszt niewykrycia oszustwa

Gdy nie korzystamy z żadnego modelu wykrywania, wszystkie transakcje w zbiorze danych transfers są uznawane za legalne. Wyznaczysz odpowiadającą temu macierz pomyłek. Choć oszustwa zdarzają się rzadko, wynikające z nich straty finansowe mogą być ogromne. Obliczysz łączny koszt niewykrycia fałszywych przelewów.

Pakiet caret jest już wczytany – możesz od razu użyć funkcji confusionMatrix(). Zbiór danych transfers jest dostępny w twoim środowisku pracy; nie wahaj się go przeglądać w konsoli.

To ćwiczenie jest częścią kursu

Wykrywanie oszustw w R

Zobacz kurs

Instrukcje do ćwiczenia

Użyj funkcji rep.int(), aby utworzyć wektor o nazwie predictions, w którym wszystkie przelewy są przewidziane jako legalne (klasa 0). Zajrzyj do slajdów, jeśli chcesz zobaczyć, jak ta funkcja była użyta w filmie.
Użyj funkcji confusionMatrix() z pakietu caret, aby obliczyć macierz pomyłek dla predictions i kolumny fraud_flag ze zbioru transfers.
Oblicz łączny koszt niewykrycia oszustw jako sumę kwot fałszywych przelewów.

Interaktywne ćwiczenie praktyczne

Spróbuj tego ćwiczenia, uzupełniając ten przykładowy kod.

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

Edytuj i uruchom kod