\begin{Schunk}
\begin{Sinput}
 ### 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))]
 text(medX, denAtMedX+0.004, labels = al2)
 text(medX, denAtMedX+0.0025, labels = al3)
 ### point from text toward shaded area
 arrows(x0 = medX, y0 = myDensity[indexMed]+0.002, x1 = mu+2.5 *sigma, y1 = 0.40*myDensity[length(specialX)] ,   length = 0.1)
\end{Sinput}
\end{Schunk}
