https://github.com/twitter/AnomalyDetection/pull/98

caijun · caijun · commit c4ef23ea331a · 2019-03-01T10:37:28.000+08:00
diff --git a/R/ts_anom_detection.R b/R/ts_anom_detection.R
@@ -168,6 +168,7 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',
   if (gran == "sec") {
     x <- format_timestamp(aggregate(x[2], format(x[1], "%Y-%m-%d %H:%M:00"), 
                                     eval(parse(text = "sum"))))
+    gran <- "min"
   }
 
   period = switch(gran,

Original file line number	Diff line number	Diff line change
`@@ -168,6 +168,7 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',`
`168`	`168`	`if (gran == "sec") {`
`169`	`169`	`x <- format_timestamp(aggregate(x[2], format(x[1], "%Y-%m-%d %H:%M:00"),`
`170`	`170`	`eval(parse(text = "sum"))))`
	`171`	`+ gran <- "min"`
`171`	`172`	`}`
`172`	`173`
`173`	`174`	`period = switch(gran,`