\begin{Schunk}
\begin{Sinput}
 y <- rpois(500, lambda=5)
 par(mfrow=c(2,2))
 hist(y, prob=T, main="lambda=5")
 y <- rpois(500, lambda=10)
 hist(y, prob=T, main="lambda=10")
 y <- rpois(500, lambda=50)
 hist(y, prob=T, main="lambda=50")
 y <- rpois(500, lambda=200)
 hist(y, prob=T, main="lambda=200")
 par(mfrow=c(1,1))
\end{Sinput}
\end{Schunk}
