# \donttest{
library(BGVAR)
data(testdata)
model.eer<-bgvar(Data=testdata, W=W.test, draws=50, burnin=50,
plag=1, prior="SSVS", eigen=TRUE)
# US monetary policy shock
shockinfo <- get_shockinfo("chol")
shockinfo$shock <- "US.stir"; shockinfo$scale <- -100
irf.chol.us.mp<-irf(model.eer,n.ahead=48,shockinfo=shockinfo)
# calculates historical decomposition
HD <- hd(irf.chol.us.mp)
# }
Run the code above in your browser using DataLab