## Not run:
#
# # Load US macro data
# data(usmacro)
#
# # Estimate trivariate BVAR using default settings
# set.seed(5813)
# bv <- bvar.sv.tvp(usmacro)
#
# # Construct predictive density function for the second variable (inflation), one period ahead
# f <- predictive.density(bv, v = 2, h = 1)
#
# # Plot the density for a grid of values
# grid <- seq(-2, 5, by = 0.05)
# plot(x = grid, y = f(grid), type = "l")
#
# # Cross-check: Extract MCMC sample for the same variable and horizon
# smp <- predictive.draws(bv, v = 2, h = 1)
#
# # Add density estimate to plot
# lines(density(smp), col = "green")
#
# ## End(Not run)
Run the code above in your browser using DataLab