# \donttest{
library(BGVAR)
data(testdata)
model.eer<-bgvar(Data=testdata, W=W.test, draws=50, burnin=50,
plag=1, prior="SSVS", eigen=TRUE)
GFEVD<-gfevd(model.eer, n.ahead=24)
# }
Run the code above in your browser using DataLab