xxxxxxxxxx
# stats::plot.ts
plot(cbind(Y,
cumsum(Y),
cumsum(ts_center(Y))
),
yax.flip = TRUE, col = "blue", frame.plot = TRUE,
main = expression(paste("Random Numbers: ",N(0,sigma))), xlab = "time (a.u.)")