# NOT RUN {
library(BGVAR)
data(eerDatasmall)
model.ssvs.eer<-bgvar(Data=eerDatasmall,W=W.trade0012.small,draws=100,burnin=100,
plag=1,prior="SSVS",eigen=TRUE)
# very time-consuming
irfcf <- irfcf(model.ssvs.eer,shockvar="US.stir",resp="US.rer",n.ahead=24)
# }
Run the code above in your browser using DataLab