\begin{Schunk}
\begin{Sinput}
 set.seed(234234)
 y1 <- rbinom(n = 100, size = size, prob = prob)
 head(y1)
\end{Sinput}
\begin{Soutput}
[1] 5 9 4 6 5 5
\end{Soutput}
\end{Schunk}
