Giới thiệu về Anomaly Detection bằng R
Alastair Rushworth
Data Scientist
Chọn ngưỡng cao
high_score <- quantile(sat$score, probs = 0.99)
high_score
99%
0.6228078
Nhị phân hóa điểm số
sat$binary_score <- as.numeric(score >= high_score)
So sánh nhãn thật và điểm đã nhị phân hóa
table(sat$label, sat$binary_score)
0 1
0 5729 3
1 15 56
Bất thường nhận diện đúng $\div$ Tổng số bất thường
table(sat$label, sat$binary_score)
0 1
0 5729 3
1 15 56
recall <- 56 / (15 + 56)
recall
0.7887324
Bất thường nhận diện đúng $\mathbf{\div}$ Tổng số bị gán là bất thường
table(sat$label, sat$binary_score)
0 1
0 5729 3
1 15 56
precision <- 56 / (56 + 3)
precision
0.9491525
Giới thiệu về Anomaly Detection bằng R