\begin{Schunk}
\begin{Sinput}
 ### xpd needed to allow writing outside strict box of graph
 par(xpd=TRUE, ps=10)
 plot(myx, myDensity, type="l", xlab="x", ylab="Probability Density ", main=myTitle1, axes=FALSE)
 axis(2, pos= mu - 3.6*sigma)
 axis(1, pos=0)
\end{Sinput}
\end{Schunk}
