\begin{Schunk}
\begin{Sinput}
 x <- seq(from = 0, to = 1, by = 0.01)
 y <- 2 + exp(0.02 * x) + 1.2 * sin(pi * (2 * x)) + 1.8 * cos(4 * pi * x)
 plot(x, y, type = "l", xlab = "x", ylab = "", main = "")
 text(x[30], y[30], expression(g(x)), pos = 1)
\end{Sinput}
\end{Schunk}
