Mendeteksi banyak anomali pada deret waktu musiman

Pengantar Deteksi Anomali di R

Alastair Rushworth

Data Scientist

Data pendapatan bulanan

head(msales)

  sales month
1 6.068     1
2 5.966     2
3 6.133     3
4 6.230     4
5 6.407     5
6 6.433     6

Uji Grubbs tidak tepat di sini

plot(sales ~ month, data = msales, type = 'o')

library(AnomalyDetection)
sales_ad <- AnomalyDetectionVec(x = msales$sales, period = 12, 
                                direction = 'both')

Argumen

x: vektor nilai
period: periode pola berulang
direction: temukan anomali yang kecil ('neg'), besar ('pos'), atau keduanya ('both')

sales_ad <- AnomalyDetectionVec(x = msales$sales, period = 12, 
                                direction = 'both')

sales_ad$anoms

  index anoms
1    14 1.561
2   108 2.156

AnomalyDetectionVec(x = msales$sales, period = 12, 
                    direction = 'both', plot = T)

Pengantar Deteksi Anomali di R