\begin{Schunk}
\begin{Sinput}
 text(medX, denAtMedX+0.0055, labels = al1)
 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}
