tsclean не работает на отдельных векторных данных

Question

У меня есть простые наборы данных в приложении. Я ясно вижу выброс (Qty = 6), который должен быть исправлен после его обработки через tsclean. может кто-нибудь помочь. данные

c(6, 187, 323, 256, 289, 387, 335, 320, 362, 359, 426, 481, 
     356, 408, 497, 263, 330, 521, 406, 350, 478, 320, 339)

код

library(forecast)

data1 <- read_csv("sample.csv", col_names = FALSE)
count_qty <-ts(data1, frequency = 12)
data1$clean_qty = tsclean(count_qty)

и данные возвращаются

 X1 clean_qty[,"X1"]
<dbl>            <dbl>
 1     6                6
 2   187              187
 3   323              323
 4   256              256
 5   289              289
 6   387              387
 7   335              335
 8   320              320
 9   362              362
 10   359              359
 # ... with 13 more rows

первый пункт должен измениться! Пожалуйста, помогите

Answer 1

Вы можете удалить выбросы, используя boxplot:

vec1[! vec1 %in% boxplot(vec1, plot = F)$out]
 # [1] 323 256 289 387 335 320 362 359 426 481 356 408 497 263 330 521 406 350 478 320 339

Обратите внимание, что 187 также является выбросом.Как вы сказали, 6 является очевидным;