# NOT RUN {
library(BGVAR)
data(eerDatasmall)
model.ssvs <- bgvar(Data=eerDatasmall,W=W.trade0012.small,plag=1,draws=100,burnin=100,
prior="SSVS")
fcast <- predict(model.ssvs, n.ahead=8)
# }
Run the code above in your browser using DataLab