\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}
