## data
data(gdp)
y = gdp$gdp
x = gdp[,c("lag1", "lag2")]
## qunatile range (left and right limits)
q.L = 0.2
q.R = 0.8
## N
n.size = 1
# dq-test
result = dq.test.0vs1(y, x, q.L, q.R, n.size)
print(result)
Run the code above in your browser using DataLab