\begin{Schunk}
\begin{Sinput}
 lppgdp <- log(UN$ppgdp)
 lim <- log(UN$infantMortality)
 plot(lim ~ lppgdp, xlab="Log of Gross Domestic Product (UN)", ylab="Log of Infant Mortality (per 1000 births)", main="")
 unmod2 <- lm(lim ~ lppgdp, data=UN)
 abline(unmod2)
\end{Sinput}
\end{Schunk}
