У меня есть несколько данных временных рядов, и я хочу найти выбросы каждого из них. Я делаю это с помощью функции tsoutlier tso() в Rstudio, но иногда это занимает слишком много времени, чтобы соответствовать модели ARIMA, поэтому я решил добавить withTimeout(), чтобы ограничить время. Но похоже, что tso() не может остановиться, когда время превышает ограничения. Например, вот мой код
data_x <- read_csv('test.csv')
data_x <- as.ts(data_x)
O_X <- withTimeout(tso(data_x), timeout = 20, inTimeout = "error")
Он не может остановиться через 20 секунд и просто продолжаться в течение нескольких минут, иногда около получаса, а затем вернуть результат. Как я могу остановить свою функцию tso() с ограничением по времени? Или есть какой-нибудь способ ускорить функцию tso()?
Вот данные ссылка
Большое спасибо.