\begin{Schunk}
\begin{Sinput}
> x <- seq(0,10)
> xdpois <- dpois(x,lambda=3)
> plot(x, xdpois, type="h", xlab="a Poisson variate with lambda=3",ylab="Probability")
> points(x, xdpois)
\end{Sinput}
\end{Schunk}
