Merge pull request twitter#50 from terrytangyuan/master

added more checks for input parameter max_anoms.

Author: caniszczyk

R/ts_anom_detection.R

@@ -85,6 +85,10 @@ AnomalyDetectionTs <- function(x, max_anoms = 0.10, direction = 'pos',
   # Sanity check all input parameters
   if(max_anoms > .49){
     stop(paste("max_anoms must be less than 50% of the data points (max_anoms =", round(max_anoms*length(x[[2]]), 0), " data_points =", length(x[[2]]),")."))
+  } else if(max_anoms < 0){
+    stop("max_anoms must be positive.")
+  } else if(max_anoms == 0){
+    warning("0 max_anoms results in max_outliers being 0.")
   }
   if(!direction %in% c('pos', 'neg', 'both')){
     stop("direction options are: pos | neg | both.")