\begin{Schunk}
\begin{Sinput}
 library(car)
 Chile$income <- Chile$income/1000000
 chmod3 <- lm(statusquo ~ income + sex, data = Chile)
 outreg(chmod3, tight = FALSE)
\end{Sinput}
\end{Schunk}
