Better anomaly detection

lib/blazer/detect_anomalies.R

@@ -8,9 +8,9 @@ tryCatch({
   data$timestamp <- as.POSIXct(data$timestamp)
 
   if (identical(args[1], "ts")) {
-    res = AnomalyDetectionTs(data, direction = "both", alpha = 0.05)
+    res <- AnomalyDetectionTs(data, direction = "both", alpha = 0.05, max_anoms = 0.2)
   } else {
-    res = AnomalyDetectionVec(data$count, direction = "both", alpha = 0.05, period = length(data$count) / 2 - 1)
+    res <- AnomalyDetectionVec(data$count, direction = "both", alpha = 0.05, max_anoms = 0.2, period = length(data$count) / 2 - 1)
   }
 
   write.csv(res$anoms)