\begin{Schunk}
\begin{Sinput}
 x <- seq(from = -3, to = 3, by = 0.1)
 y <- exp(-0.5 * x^2)
 plot(x, y, type = "l", xlab = "x", ylab = "", main = "")
 text(2, 0.75 * max(y), label = expression(exp(-x^2)))
 abline(v = 0, lty = 4)
\end{Sinput}
\end{Schunk}
