\begin{Schunk}
\begin{Sinput}
 plot(infantMortality ~ ppgdp, data=UN, xlab="Gross Domestic Product (UN)", ylab="Infant Mortality (per 1000 births)", main="")
 abline(unmod)
\end{Sinput}
\end{Schunk}
