\begin{Schunk}
\begin{Sinput}
 N <- 2000
 size1 <- 10
 size2 <- 100
 size3 <- 1000
 size4 <- 10000
 ohone <- 0.01 ## a joke!
 y1 <- rbinom(N, size1, prob = ohone)
 y2 <- rbinom(N, size2, prob = ohone)
 y3 <- rbinom(N, size3, prob = ohone)
 y4 <- rbinom(N, size4, prob = ohone)
\end{Sinput}
\end{Schunk}
