Ошибка в пакете MSBVAR R: REAL () можно применять только к «числовому», а не к «целому числу» (сэмплер Gibbs)

У меня следующая проблема при использовании пакета MSBVAR для R: когда я пытаюсь вычислить апостериор с помощью функции gibbs.A0 (), я получаю ошибку:

> A0.posterior <- gibbs.A0(bsvar1, N1=1000, N2=1000)
Normalization Method:  DistanceMLA ( 0 )
Error in gibbs.A0(bsvar1, N1 = 1000, N2 = 1000) :
REAL() can only be applied to a 'numeric', not a 'integer'

Этот бсвар построен следующим образом:

bsvar1 <- szbsvar(dane1, p=4, z = NULL, lambda0=1, lambda1=0.5,
lambda3=0.1, lambda4=1, lambda5=1,
mu5=1, mu6=1, matB_id, qm=4)

и единственными целочисленными элементами (помеченными как «int») в bsvar являются «n0», что означает «m мерный список числа свободных параметров для матрицы A0 для уравнения i». и моя идентификационная матрица, но когда я печатаю

> is.numeric(matB_id)

я получил

[1] TRUE

Тем не менее, я также печатаю:

> is.integer(matB_id)

[1] TRUE

Матрица с данными, которые я использовал для оценки BSVAR, имеет имена столбцов и не содержит имен строк.

Может кто-нибудь посоветовать мне, как решить эту проблему, то есть заставить работать функцию gibbs.A0 ()?