Performansı ölçme

R ile Anomali Tespitine Giriş

Alastair Rushworth

Data Scientist

Karar eşiği kullanma

Yüksek bir değer seçin

high_score <- quantile(sat$score, probs = 0.99)
high_score

    99% 
0.6228078

Skoru ikileştirin

sat$binary_score <- as.numeric(score >= high_score)

Gerçek etiket ve ikileştirilmiş skorun karşılaştırılması

table(sat$label, sat$binary_score)

       0    1
  0 5729    3
  1   15   56

Doğru saptanan anomaliler $\div$ Toplam anomali

table(sat$label, sat$binary_score)

       0    1
  0 5729    3
  1   15   56

recall <- 56 / (15 + 56)
recall

0.7887324

Doğru saptanan anomaliler $\mathbf{\div}$ Anomalik sayılan toplam

table(sat$label, sat$binary_score)

       0    1
  0 5729    3
  1   15   56

precision <- 56 / (56 + 3)
precision

0.9491525

R ile Anomali Tespitine Giriş