# data
data(gdp)
y = gdp$gdp
x = gdp[,c("lag1", "lag2")]
# quantiles
vec.tau = 0.8
# break dates (point estimates)
vec.date = c(146, 200)
# Calculate confidence intervals for break dates
res = ci.date.m(y, x, vec.tau, vec.date, n.size = 1, v.b = 2)
print(res)
Run the code above in your browser using DataLab