Chi phí khi không phát hiện gian lận
Khi không dùng mô hình phát hiện, tất cả giao dịch trong bộ dữ liệu transfers sẽ được xem là hợp lệ. Bạn sẽ xác định ma trận nhầm lẫn tương ứng. Dù gian lận hiếm gặp, tổn thất tài chính có thể rất lớn. Bạn sẽ tính tổng chi phí khi không phát hiện các giao dịch chuyển tiền gian lận.
Gói caret đã được nạp sẵn để bạn dựng confusionMatrix(). Bộ dữ liệu transfers đã có trong môi trường làm việc; bạn có thể khám phá trong Console.
Bài tập này là một phần của khóa học
Phát hiện gian lận với R
Hướng dẫn bài tập
- Dùng
rep.int()để tạo một vector tênpredictionstrong đó tất cả giao dịch đều được dự đoán là hợp lệ (lớp 0). Bạn có thể xem lại các slide để biết cách hàm này được dùng trong video. - Dùng hàm
confusionMatrix()từ góicaretđể tính ma trận nhầm lẫn giữapredictionsvà cộtfraud_flagcủatransfers. - Tính tổng chi phí khi không phát hiện gian lận bằng cách lấy tổng các khoản tiền đã chuyển bị gian lận.
Bài tập tương tác thực hành trực tiếp
Hãy thử làm bài tập này bằng cách hoàn thành đoạn mã mẫu này.
# 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)