\begin{Schunk}
\begin{Sinput}
 termplot(chmod3, se = TRUE, partial.resid = TRUE, terms = "income", xlab = "Income (1,000,000s pesos)")
\end{Sinput}
\end{Schunk}
