\begin{Schunk}
\begin{Sinput}
> curve(log(x), from = 0.00001, to = 5, xlab = "x", main = "Natural and base 10 log")
> curve(log(x, 10), from = 0.00001, to = 5, add = TRUE, lty = 2, col = "blue")
> text(4, -1, "Dotted is base 10 log")
> text(0, 1, "Solid line is natural log", pos = 4)
\end{Sinput}
\end{Schunk}
