\begin{Schunk}
\begin{Sinput}
 ### Take sequence parallel to values of myx inside critical region
 specialY <- myDensity[myx < criticalValue]
 #  Polygon makes a nice shaded illustration
 polygon(c(specialX[1], specialX, specialX[length(specialX )]), c(0, specialY, 0), density=c(-110),col="lightgray" )
\end{Sinput}
\end{Schunk}
