# NOT RUN {
library(BGVAR)
data(eerData)
model.ssvs.eer<-bgvar(Data=eerData,W=W.trade0012,saves=100,burns=100,plag=1,prior="SSVS",
eigen=TRUE)
# }
# NOT RUN {
# very time-consuming
# }
# NOT RUN {
irf.cf <- IRF.cf(model.ssvs.eer,shockvar="US.stir",resp="US.rer",nhor=24)
# }
Run the code above in your browser using DataLab