\begin{Schunk}
\begin{Sinput}
 reg.mod.1.pred2 <- predict(reg.mod.1, newdata = nd, interval = "confidence")
 reg.mod.1.pred2
\end{Sinput}
\begin{Soutput}
       fit      lwr      upr
1 2.537395 2.342241 2.732549
2 2.947789 2.873926 3.021652
3 3.061062 2.999750 3.122375
4 3.177315 3.104471 3.250159
5 3.584741 3.392334 3.777149
\end{Soutput}
\end{Schunk}
