\begin{Schunk}
\begin{Sinput}
 curve(log(x), from = 0.00001, to = 10, xlab = "The domain is now -5, 5", main = "Compare exp and log", xlim = c(-5, 5), ylim = c(-12, 20))
 curve(exp(x), from = -5, to = 5, add = TRUE)
\end{Sinput}
\end{Schunk}
