Fixed duplicate outliers

robjhyndman · Nov 29, 2019 · d914c9e · d914c9e
1 parent df32154
commit d914c9e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/R/clean.R b/R/clean.R
@@ -235,7 +235,7 @@ tsoutliers <- function(x, iterate=2, lambda=NULL) {
     tmp <- tsoutliers(x, iterate = 1, lambda = lambda)
     if (length(tmp$index) > 0) # Found some more
     {
-      outliers <- sort(c(outliers, tmp$index))
+      outliers <- sort(unique(c(outliers, tmp$index)))
       x[outliers] <- NA
       x <- na.interp(x, lambda = lambda)
     }