From 1b69f092fab96f710176f62ec9710a6b793cf37c Mon Sep 17 00:00:00 2001
From: Reno Reckling <reno.reckling@mayflower.de>
Date: Mon, 14 Sep 2015 11:38:59 +0200
Subject: [PATCH] fix bug for data_sigma check

---
 R/detect_anoms.R | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/R/detect_anoms.R b/R/detect_anoms.R
index 221077f..c1701a8 100644
--- a/R/detect_anoms.R
+++ b/R/detect_anoms.R
@@ -87,7 +87,7 @@ detect_anoms <- function(data, k = 0.49, alpha = 0.05, num_obs_per_period = NULL
 
         # protect against constant time series
         data_sigma <- func_sigma(data[[2L]])
-        if(data_sigma == 0) 
+        if(is.na(data_sigma) || data_sigma == 0)
             break
 
         ares <- ares/data_sigma