\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{true.mu}\hlkwb{<-}\hlkwd{c}\hlstd{(}\hlnum{2}\hlstd{,}\hlnum{5}\hlstd{,}\hlnum{3}\hlstd{,}\hlnum{6}\hlstd{)}
\hlkwd{par}\hlstd{(}\hlkwc{mar}\hlstd{=}\hlkwd{c}\hlstd{(}\hlnum{3}\hlstd{,}\hlnum{2}\hlstd{,}\hlnum{2}\hlstd{,}\hlnum{2}\hlstd{),}\hlkwc{mfrow}\hlstd{=}\hlkwd{c}\hlstd{(}\hlnum{2}\hlstd{,}\hlnum{2}\hlstd{))}
\hlstd{nvec}\hlkwb{<-}\hlkwd{c}\hlstd{(}\hlstr{"OR"}\hlstd{,}\hlkwd{expression}\hlstd{(}\hlkwd{tilde}\hlstd{(mu)(z)),}\hlkwd{expression}\hlstd{(}\hlkwd{hat}\hlstd{(mu)(z)))}
\hlkwd{boxplot}\hlstd{(ests.mat[,,}\hlnum{1}\hlstd{],}\hlkwc{names}\hlstd{=nvec,}\hlkwc{col}\hlstd{=}\hlstr{'gray'}\hlstd{,}\hlkwc{main}\hlstd{=}\hlkwd{expression}\hlstd{(}\hlkwd{mu}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{0}\hlstd{)));}\hlkwd{abline}\hlstd{(}\hlkwc{h}\hlstd{=true.mu[}\hlnum{1}\hlstd{],}\hlkwc{col}\hlstd{=}\hlstr{'red'}\hlstd{)}
\hlkwd{boxplot}\hlstd{(ests.mat[,,}\hlnum{2}\hlstd{],}\hlkwc{names}\hlstd{=nvec,}\hlkwc{col}\hlstd{=}\hlstr{'gray'}\hlstd{,}\hlkwc{main}\hlstd{=}\hlkwd{expression}\hlstd{(}\hlkwd{mu}\hlstd{(}\hlnum{1}\hlstd{,}\hlnum{0}\hlstd{)));}\hlkwd{abline}\hlstd{(}\hlkwc{h}\hlstd{=true.mu[}\hlnum{2}\hlstd{],}\hlkwc{col}\hlstd{=}\hlstr{'red'}\hlstd{)}
\hlkwd{boxplot}\hlstd{(ests.mat[,,}\hlnum{3}\hlstd{],}\hlkwc{names}\hlstd{=nvec,}\hlkwc{col}\hlstd{=}\hlstr{'gray'}\hlstd{,}\hlkwc{main}\hlstd{=}\hlkwd{expression}\hlstd{(}\hlkwd{mu}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{1}\hlstd{)));}\hlkwd{abline}\hlstd{(}\hlkwc{h}\hlstd{=true.mu[}\hlnum{3}\hlstd{],}\hlkwc{col}\hlstd{=}\hlstr{'red'}\hlstd{)}
\hlkwd{boxplot}\hlstd{(ests.mat[,,}\hlnum{4}\hlstd{],}\hlkwc{names}\hlstd{=nvec,}\hlkwc{col}\hlstd{=}\hlstr{'gray'}\hlstd{,}\hlkwc{main}\hlstd{=}\hlkwd{expression}\hlstd{(}\hlkwd{mu}\hlstd{(}\hlnum{1}\hlstd{,}\hlnum{1}\hlstd{)));}\hlkwd{abline}\hlstd{(}\hlkwc{h}\hlstd{=true.mu[}\hlnum{4}\hlstd{],}\hlkwc{col}\hlstd{=}\hlstr{'red'}\hlstd{)}
\end{alltt}
\end{kframe}

{\centering \includegraphics[width=\maxwidth]{figure/CA6-1} 

}



\end{knitrout}