data(sys.risk)
## sample size
T = nrow(sys.risk)
## matrix for quantile regressions
## - 1st column: dependent variables
## - the rest: regressors or predictors
D1 = cbind(sys.risk[2:T,"Market"], sys.risk[1:(T-1),"Market"])
D2 = cbind(sys.risk[2:T,"JPM"], sys.risk[1:(T-1),"JPM"])
## probability levels
vecA = c(0.1, 0.2)
## 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 to 5, after quantile regression
Qstat.reg.sb(D1, D2, vecA, 5, gamma, Bsize, sigLev)
Run the code above in your browser using DataLab