# \donttest{
## data
data(gdp)
y = gdp$gdp
x = gdp[,c("lag1", "lag2")]
## quantile
v.tau = 0.8
# cross-sectional size
n.size = 1
# the maximum number of breaks
m.max = 3
## trim
T.size = length(y)
trim.e = 0.2
trim.size = round(T.size * trim.e) #minimum length of a regime
# get.long
out.long = gen.long(y, x, v.tau, n.size, trim.size)
mat.long.s = out.long$mat.long ## for individual quantile
# mat.date
mat.date = brdate(y, x, n.size, m.max, trim.size, mat.long.s)
# sq
result = sq(y, x, v.tau, n.size, m.max, trim.size, mat.date)
print(result)
# }
Run the code above in your browser using DataLab