## data source
data("sys.risk")
## data with 3 variables
D = sys.risk[,c("Market", "JPM", "VIX")]
## probablity levels for the 3 variables
vecA = c(0.1, 0.1, 0.1)
## partial cross-quantilogram with lags from 1 to 5
crossq.max.partial(D, vecA, 5)
Run the code above in your browser using DataLab