What about:
a = 1:10 b = c(2,1,2,4,5,5,3,7,4,10) R6cl <- lm(log(b)~a) pR6cl <- predict(R6cl, interval = "confidence") plot(a, log(b), type = "p") lines(a, pR6cl[,1], lty = 1, col = "black") lines(a, pR6cl[,2], lty = 2, col = "gray") lines(a, pR6cl[,3], lty = 2, col = "gray")
What gives:

source share