# Load data
data(gdp)
y = gdp$gdp
x = gdp[,c("lag1", "lag2")]
# Set quantile range (left and right limits)
q.L = 0.2
q.R = 0.8
# Set N parameter
n.size = 1
# Specify break date under H_0
vec.date = 146
# Run the test
result = dq.test.lvsl_1(y, x, q.L, q.R, n.size, vec.date)
print(result)
Run the code above in your browser using DataLab