if (FALSE) {
## data source
data("sys.risk")
## two variables data: T x 2
DATA = sys.risk[,c("JPM", "Market")]
## setup and estimation
k = 1 ## lag order
vec.q = seq(0.05, 0.95, 0.05) ## a list of quantiles
B.size = 200 ## Repetition of bootstrap
res = crossq.heatmap(DATA, k, vec.q, B.size)
## result
print(res$plot)
}
Run the code above in your browser using DataLab