\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{w0}\hlkwb{<-}\hlstd{(}\hlnum{1}\hlopt{-}\hlstd{Z)}\hlopt{/}\hlstd{(}\hlnum{1}\hlopt{-}\hlstd{eX)}
\hlstd{W0}\hlkwb{<-}\hlstd{w0}\hlopt{/}\hlkwd{sum}\hlstd{(w0)}
\hlstd{w1}\hlkwb{<-}\hlstd{Z}\hlopt{/}\hlstd{eX}
\hlstd{W1}\hlkwb{<-}\hlstd{w1}\hlopt{/}\hlkwd{sum}\hlstd{(w1)}

\hlcom{#Mu tilde}
\hlkwd{mean}\hlstd{(w1}\hlopt{*}\hlstd{Y)}\hlopt{-}\hlkwd{mean}\hlstd{(w0}\hlopt{*}\hlstd{Y)}
\end{alltt}
\begin{verbatim}
+ [1] 0.7306851
\end{verbatim}
\begin{alltt}
\hlcom{#Mu hat}
\hlkwd{sum}\hlstd{(W1}\hlopt{*}\hlstd{Y)}\hlopt{-}\hlkwd{sum}\hlstd{(W0}\hlopt{*}\hlstd{Y)}
\end{alltt}
\begin{verbatim}
+ [1] 1.024291
\end{verbatim}
\end{kframe}
\end{knitrout}