\begin{Schunk}
\begin{Sinput}
 ## Convert to proportions
 y1p <- y1/size1
 head(y1p)
\end{Sinput}
\begin{Soutput}
[1] 0.0 0.0 0.1 0.0 0.0 0.0
\end{Soutput}
\begin{Sinput}
 y2p <- y2/size2
 head(y2p)
\end{Sinput}
\begin{Soutput}
[1] 0.03 0.00 0.00 0.00 0.00 0.00
\end{Soutput}
\begin{Sinput}
 y3p <- y3/size3
 head(y3p)
\end{Sinput}
\begin{Soutput}
[1] 0.010 0.012 0.006 0.009 0.011 0.011
\end{Soutput}
\begin{Sinput}
 y4p <- y4/size4
 head(y4p)
\end{Sinput}
\begin{Soutput}
[1] 0.0084 0.0103 0.0111 0.0111 0.0099 0.0112
\end{Soutput}
\end{Schunk}
