Merge #2

isalgueiro · isalgueiro · commit 2406de366dde · 2017-11-24T09:25:07.000+01:00
diff --git a/R/ts_anom_detection.R b/R/ts_anom_detection.R
@@ -165,6 +165,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
`@@ -165,6 +165,7 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',`
`165`	`165`	`if (gran == "sec") {`
`166`	`166`	`x <- format_timestamp(aggregate(x[2], format(x[1], "%Y-%m-%d %H:%M:00"),`
`167`	`167`	`eval(parse(text = "sum"))))`
	`168`	`+ gran <- "min"`
`168`	`169`	`}`
`169`	`170`
`170`	`171`	`period = switch(gran,`