data("sys.risk") ## data source
D = sys.risk[,c("Market", "JPM")] ## data: 2 variables
# probability levels for the 2 variables
vecA = c(0.1, 0.5)
## setup for stationary bootstrap
gamma = 1/10 ## bootstrap parameter depending on data
Bsize = 5 ## small size, 5, for test
sigLev = 0.05 ## significance level
## Q statistics with lags from 1 to5
Qstat.sb(D, vecA, 5, gamma, Bsize, sigLev)
Run the code above in your browser using DataLab