\begin{Schunk}
\begin{Sinput}
 lines(c(myx[1],myx[length(myx)]),c(0,0)) ### closes off axes
 # bquote creates an expression that text plotters can use
 t1 <-  bquote( mu== .(mu))
 # Find a value of myx that is "very close to" mu
 centerX <- max(which (myx <= mu))
 # plot light vertical line under peak of density
 lines( c(mu, mu), c(0, myDensity[centerX]), lty= 14, lwd=.2)
 # label the mean in the bottom margin
 mtext(bquote( mu == .(mu)), 1, at=mu, line=-1)
\end{Sinput}
\end{Schunk}
