\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{W00.star}\hlkwb{<-}\hlstd{W00}\hlopt{/}\hlkwd{sum}\hlstd{(W00)}
\hlstd{W10.star}\hlkwb{<-}\hlstd{W10}\hlopt{/}\hlkwd{sum}\hlstd{(W10)}
\hlstd{W01.star}\hlkwb{<-}\hlstd{W01}\hlopt{/}\hlkwd{sum}\hlstd{(W01)}
\hlstd{W11.star}\hlkwb{<-}\hlstd{W11}\hlopt{/}\hlkwd{sum}\hlstd{(W11)}
\hlstd{mu.00.hat}\hlkwb{<-}\hlkwd{sum}\hlstd{(W00.star}\hlopt{*}\hlstd{Y)}
\hlstd{mu.10.hat}\hlkwb{<-}\hlkwd{sum}\hlstd{(W10.star}\hlopt{*}\hlstd{Y)}
\hlstd{mu.01.hat}\hlkwb{<-}\hlkwd{sum}\hlstd{(W01.star}\hlopt{*}\hlstd{Y)}
\hlstd{mu.11.hat}\hlkwb{<-}\hlkwd{sum}\hlstd{(W11.star}\hlopt{*}\hlstd{Y)}
\hlkwd{c}\hlstd{(mu.00.hat,mu.10.hat,mu.01.hat,mu.11.hat)}
\end{alltt}
\begin{verbatim}
+ [1] 2.206665 4.971965 3.271587 5.942558
\end{verbatim}
\end{kframe}
\end{knitrout}