\begin{Schunk}
\begin{Sinput}
 dat1$elevationP1000 <- dat1$elevation / 1000
 mod2 <- lm(tann ~ elevationP1000, data = dat1)
 or20 <- outreg(list("Temperature" = mod2), varLabels = list("elevationP1000" = "Elev. per 1000 ft"))
 cat(or20)
\end{Sinput}
\end{Schunk}
