|
@@ -8,9 +8,9 @@ tryCatch({
|
|
|
data$timestamp <- as.POSIXct(data$timestamp)
|
|
|
|
|
|
if (identical(args[1], "ts")) {
|
|
|
- res <- AnomalyDetectionTs(data, direction = "both", alpha = 0.05, max_anoms = 0.3)
|
|
|
+ res <- AnomalyDetectionTs(data, direction = "both", alpha = 0.05, max_anoms = 0.2)
|
|
|
} else {
|
|
|
- res <- AnomalyDetectionVec(data$count, direction = "both", alpha = 0.05, max_anoms = 0.3, 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)
|