lines function returning too many random lines (R)

Question

I have a weird problem with drawing a graph with confidence intervals for predictions.

Here is my code:

rm(list = ls())
cat("\\014")

set.seed(1)