사기를 탐지하지 못했을 때의 비용
탐지 모델을 사용하지 않으면 transfers 데이터셋의 모든 거래는 정상으로 간주됩니다. 이에 해당하는 혼동 행렬을 구해 보세요. 사기가 드물더라도 그로 인한 재무적 손실은 매우 클 수 있습니다. 사기 이체를 탐지하지 못했을 때의 총비용을 계산하겠습니다.
caret 패키지는 이미 로드되어 있어 confusionMatrix()를 바로 사용할 수 있습니다. transfers 데이터셋도 워크스페이스에 로드되어 있으니, 필요하면 콘솔에서 살펴보세요.
이 연습은 강의의 일부입니다
R로 배우는 사기 탐지
연습 안내
rep.int()를 사용해 모든 이체가 정상(클래스 0)으로 예측되도록predictions라는 벡터를 만드세요. 이 함수 사용 예시는 동영상의 슬라이드에서 확인하실 수 있어요.caret패키지의confusionMatrix()함수를 사용해predictions와transfers의fraud_flag열로 혼동 행렬을 계산하세요.- 사기를 탐지하지 못했을 때의 총비용을, 사기 거래 금액의 합으로 계산하세요.
실습형 인터랙티브 연습
이 예제를 이 샘플 코드를 완성하여 풀어보세요.
# 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)