\begin{Schunk}
\begin{Sinput}
 curve(log(x), 0.1, 30, ylab = "", lty = 1, col = "black", ylim = c(-3, 7))
 curve(sqrt(x), 0.1, 30, lty = 2, col = "green", add = TRUE)
 curve(6 - 10/x, 0.1, 30, lty = 4, col = "orange", add = TRUE)
 legend("topleft", legend = c("log(x)", "sqrt(x)", "6 -10/x"), lty = c(1,2,4), col = c("black", "green","orange"))
\end{Sinput}
\end{Schunk}
