193
193
if (with.ci && ci.type == "white")
194
194
abline(h = c(clim, -clim), col = ci.col, lty = 2)
195
195
else if (with.ci.ma && i == j) {
196
lines(x$lag[, i, j], clim, col = ci.col, lty = 2)
197
lines(x$lag[, i, j], -clim, col = ci.col, lty = 2)
197
lines(x$lag[-1, i, j], clim, col = ci.col, lty = 2)
198
lines(x$lag[-1, i, j], -clim, col = ci.col, lty = 2)
199
200
title(if (!is.null(main)) main else