\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{(mu0}\hlkwb{<-}\hlkwd{sum}\hlstd{(be}\hlopt{*}\hlkwd{c}\hlstd{(}\hlnum{1}\hlstd{,Mu[}\hlnum{1}\hlstd{],Mu[}\hlnum{2}\hlstd{],X.M[}\hlnum{1}\hlstd{,}\hlnum{2}\hlstd{])))}
\end{alltt}
\begin{verbatim}
## [1] 4.4675
\end{verbatim}
\begin{alltt}
\hlstd{(mu1}\hlkwb{<-}\hlstd{mu0} \hlopt{+} \hlkwd{sum}\hlstd{(psi}\hlopt{*}\hlkwd{c}\hlstd{(}\hlnum{1}\hlstd{,Mu[}\hlnum{1}\hlstd{],Mu[}\hlnum{2}\hlstd{],X.M[}\hlnum{1}\hlstd{,}\hlnum{2}\hlstd{])))}
\end{alltt}
\begin{verbatim}
## [1] 2.58
\end{verbatim}
\end{kframe}
\end{knitrout}