Ошибка использования функции барбекю в пакете BCDating

Question

Получение следующей ошибки с использованием функции BBQ в пакете BCDating R и не может точно определить причину:

Ошибка в if (bcp [i] - bcp [i - 1]

Чтобы воссоздать это:

library(readxl)
library(BCDating)
library(dplyr)
url <- "https://www.philadelphiafed.org/-/media/research-and-data/regional- 
economy/indexes/coincident/coincident-revised.xls?la=en"
destfile <- "coincident-revised.xls"
download.file(url, destfile, mode = 'wb')
coincident <-read_excel("coincident-revised.xls")
coincident2<- coincident %>% 
 select(-Date) %>% 
 mutate_if(is.character,as.numeric) %>% 
 na.omit()
attach(coincident2)

Эта ошибка возникает только для Грузии (столбец GA).Это можно увидеть, преобразовав FL и GA во временные ряды, а затем запустив барбекю на них.FL работает, когда GA имеет ошибку:

fcoincident<- ts(FL, start=c(1979, 4), frequency=12)
mod3<- BBQ(fcoincident, mincycle = 12, minphase = 6, name= main)
gcoincident<- ts(GA, start=c(1979, 4), frequency=12)
mod2<- BBQ(gcoincident, mincycle = 12, minphase = 6, name= main)

Любая помощь, понимающая / исправляющая эту ошибку, будет оценена!

Answer 1

Обновление: это можно решить, уменьшив вход минимальной фазы в функцию.Это работает только в определенных ситуациях.Если у вас возникли проблемы с использованием метода Бри-Бошана, я бы порекомендовал написать код для использования непараметрического алгоритма в Metro Business Cycles (особенно полезно, если вы проводите анализ на уровне штата или MSA).