## data source
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)
## cross-quantilogram with the lag of 5, after quantile regression
crossqreg(D1, D2, vecA, 5)
Run the code above in your browser using DataLab