\begin{Schunk}
\begin{Sinput}
 x <- 0:10
 y <- dpois(x, lambda=4.5)
 barplot(y, names.arg=x, col=gray(0.85), space=0)
\end{Sinput}
\end{Schunk}
