# NOT RUN {
dlsegments(c(-3,3), c(1, 1000),
r=c("o", "o"), l=c("c", "o"), COL=COL[4])
dlsegments(c(-3,3), c(1, 1000),
r=c("o", "o"), l=c("c", "o"), type="un", COL=COL[4])
dlsegments(c(-3,3), c(1, 1000),
r=c("o", "o"), l=c("c", "o"), type="in", COL=COL[4])
# }
Run the code above in your browser using DataLab