AR中的Chow测试的R代码（1）

Question

我想对AR（1）进行Chow测试，也就是说我想测试在某个时间点之后，滞后项的系数是否与其他时间段有统计学差异。

由于

Answer 1

require(strucchange)
set.seed(123)
x <- arima.sim(n = 100, list(ar = 0.5))

data <- cbind(x, lx = lag(x))
sctest(x ~ lx, data = data,
       type = "Chow", point = 10)