R 异常检测入门
Alastair Rushworth
Data Scientist
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
此处不适用 Grubbs 检验
plot(sales ~ month, data = msales, type = 'o')

library(AnomalyDetection)
sales_ad <- AnomalyDetectionVec(x = msales$sales, period = 12,
direction = 'both')
参数
x:数值向量period:重复模式的周期direction:查找较小('neg')、较大('pos')或两者('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)

R 异常检测入门