|  | @@ -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)
 |