\begin{Schunk}
\begin{Sinput}
 N <- 2000
 size <- c(10, 100, 1000, 10000)
 ohone <- 0.01 ## a joke!
 for(j in seq_along(size)){
  	y <- rbinom(N, size[j], prob = ohone)
      yname <- paste0("y", j)
      assign(yname, y)
  }
\end{Sinput}
\end{Schunk}
