\begin{Schunk}
\begin{Sinput}
 ### Create a formula for the Normal
 normalFormula <- expression (f(x) == frac (1, sigma* sqrt(2*pi)) * e^{~~ - ~~ frac(1,2)~~ bgroup("(", frac(x-mu,sigma),")")^2})
 # Draw the Normal formula
 text ( mu + 0.5*sigma, max(myDensity)- 0.10 * max(myDensity),  normalFormula, pos=4)
\end{Sinput}
\end{Schunk}
