\begin{Schunk}
\begin{Sinput}
 myx <- rpois(1500,lambda=17)
 den1 <- density(myx)
 plot(den1)
\end{Sinput}
\end{Schunk}
