if (FALSE) {
##Inflation rate, unemployment rate and treasury bill
##interest rate for the US as in Primiceri (2005).
data(usmacro, package = "bvarsv")
TVVAR <- tvVAR(usmacro, p = 4, type = "const")
##Estimate a the tvIRF with time-varying covariance function
TVIRF <- tvIRF(TVVAR)
##Cumulative impulse response function
TVIRF2 <- tvIRF(TVVAR, cumulative = TRUE)
}
Run the code above in your browser using DataLab