\begin{Schunk}
\begin{Sinput}
 rangx <- range(myx)
 testseq <- seq(rangx[1], rangx[2], by=1)
 pdfseq <- dnorm(testseq, mean=50, sd=20)
 lines(testseq, pdfseq)
\end{Sinput}
\end{Schunk}
