R/ci.sym.R

ci.sym <-
function (x,y, xdel=0.2, ydel=0.2, col=1) 
{

xc <- c(x - xdel, x, x+xdel)
yc <- c(y-ydel, y, y-ydel)

lines(xc, yc, col=col)


}

Try the forecastLSW package in your browser

Any scripts or data that you put into this service are public.

forecastLSW documentation built on Aug. 22, 2025, 1:09 a.m.