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

我想对AR（1）进行Chow测试，也就是说，我想测试在某个时间点之后，滞后项的系数是否在统计上与该时间段的其余部分不同

谢谢

require（strucchange）
种子集（123）
x
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)