## data source
data("sys.risk")
## data: 2 variables
D = sys.risk[,c("Market", "JPM")]
# probability levels for the 2 variables
vecA = c(0.1, 0.5)
## cross-quantilogram with lags between 1 and 5
crossq.max(D, vecA, 5)
Run the code above in your browser using DataLab