## 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)
## setup for stationary bootstrap
Bsize = 5 ## small size 5 for test
sigLev = 0.05 ## significance level
## cross-quantilogram with the lag of 5
crossq.sb.opt(D, vecA, 5, Bsize, sigLev)
Run the code above in your browser using DataLab