\begin{Schunk}
\begin{Sinput}
 ### I want to insert annotation about area on left side.
 shadedArea <- round(pnorm(mu - 1.96 * sigma, mean=mu, sd=sigma),4)
 al1 <- bquote(Prob(x <= .(criticalValue)))
 al2 <- bquote(phantom(0) == F( .(criticalValue) ))
 al3 <- bquote(phantom(0) == .(round(shadedArea,3)))
 ### Hard to position this text "just right"
 ### Have tried many ideas, this may be least bad.
 ### Get center position in shaded area
 medX <- median(specialX)
 ### density at that center point:
 denAtMedX <- myDensity[indexMed <- max(which(specialX < medX))]
\end{Sinput}
\end{Schunk}
