\begin{Schunk}
\begin{Sinput}
 require(car)
 data(Chile)
 Chile$income <- Chile$income/1000
 m2 <- lm(statusquo ~ income + age + sex, data=Chile)
\end{Sinput}
\end{Schunk}
