## Not run:
# set.seed(1)
# sim <- fsvsim(series = 3, factors = 1) # simulate
# res <- fsvsample(sim$y, factors = 1) # estimate
#
# # Predict 1, 10, and 100 days ahead:
# predobj <- predcov(res, ahead = c(1, 10, 100))
#
# # Trace plot of draws from posterior predictive distribution
# # of the covariance of Sim1 and Sim2:
# # (one, ten, and 100 days ahead):
# plot.ts(predobj[1,2,,])
#
# # Smoothed kernel density estimates of predicted covariance
# # of Sim1 and Sim2:
# plot(density(predobj[1,2,,"1"], adjust = 2))
# lines(density(predobj[1,2,,"10"], adjust = 2), col = 2)
# lines(density(predobj[1,2,,"100"], adjust = 2), col = 3)
# ## End(Not run)
Run the code above in your browser using DataLab