Code
set.seed(2026)
rho <- 0.85; T_len <- 60; e <- rnorm(T_len)
solve_ar <- function(x0) { x <- numeric(T_len); prev <- x0
for (t in 1:T_len) { x[t] <- rho * prev + e[t]; prev <- x[t] }; x }
df <- data.frame(t = rep(1:T_len, 3),
x = c(solve_ar(10), solve_ar(0), solve_ar(-10)),
start = rep(c("x0 = 10", "x0 = 0", "x0 = -10"), each = T_len))
ggplot(df, aes(t, x, colour = start)) + geom_line(linewidth = 1) +
scale_colour_manual(values = c("#8b2635", "#2f4b7c", "#e09f3e"), name = NULL) +
labs(x = "t", y = expression(x[t])) + theme(legend.position = "top")



