\begin{Schunk}
\begin{Sinput}
 denx <- density(myx)
 lines(denx, lty=2, col="red")
\end{Sinput}
\end{Schunk}
