# \donttest{
set.seed(1)
n <- 801
w <- rnorm(n + 1, 0, 3)
dx <- rep(0, n + 1)
x <- rep(0, n + 1)
for (i in 1:400) {
dx[i + 1] <- 0.9 * dx[i] + w[i + 1] - 0.1 * w[i]
x[i + 1] <- x[i] + dx[i + 1]
}
for (i in 401:n) {
dx[i + 1] <- -0.6 * dx[i] + w[i + 1] + 0.3 * w[i]
x[i + 1] <- x[i] + dx[i + 1]
}
result <- fastcpd.arima(
diff(x[1 + seq_len(n)]),
c(1, 0, 1),
segment_count = 3,
include.mean = FALSE
)
summary(result)
plot(result)
# }
Run the code above in your browser using DataLab