\begin{Schunk}
\begin{Sinput}
 plot(den1$x,den1$y,type="l", xlab="x is Poisson(17)", ylab="density")
 abline(h=0, col="gray50", lwd=0.6)
\end{Sinput}
\end{Schunk}
