Biaya tidak mendeteksi kecurangan

Ketika tidak ada model deteksi yang digunakan, semua transaksi dalam himpunan data transfers dianggap sah. Anda akan menentukan matriks kebingungan yang sesuai. Meskipun kecurangan jarang terjadi, kerugian finansial yang diakibatkan bisa sangat besar. Anda akan menghitung total biaya akibat tidak mendeteksi transfer yang curang.

Paket caret sudah dimuat untuk Anda guna menyusun confusionMatrix(). Himpunan data transfers telah dimuat di ruang kerja Anda, jangan ragu untuk mengeksplorasinya di Console.

Latihan ini adalah bagian dari kursus

Deteksi Fraud di R

Lihat Kursus

Petunjuk latihan

Gunakan rep.int() untuk membuat sebuah vektor bernama predictions di mana semua transfer diprediksi sebagai sah (kelas 0). Jangan ragu melihat slide untuk melihat bagaimana fungsi ini digunakan di video.
Gunakan fungsi confusionMatrix() dari paket caret untuk menghitung matriks kebingungan antara predictions dan kolom fraud_flag dari transfers.
Hitung total biaya tidak mendeteksi kecurangan sebagai jumlah nilai transfer yang curang.

Latihan interaktif praktis

Cobalah latihan ini dengan menyelesaikan kode contoh berikut.

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

Edit dan Jalankan Kode