\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlkwd{par}\hlstd{(}\hlkwc{mar}\hlstd{=}\hlkwd{c}\hlstd{(}\hlnum{2}\hlstd{,}\hlnum{2}\hlstd{,}\hlnum{2}\hlstd{,}\hlnum{0}\hlstd{))}
\hlkwd{hist}\hlstd{(ps0,} \hlkwc{col}\hlstd{=}\hlkwd{rgb}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{1}\hlstd{,}\hlnum{0.5}\hlstd{),} \hlkwc{breaks}\hlstd{=}\hlkwd{seq}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{1}\hlstd{,}\hlkwc{by}\hlstd{=}\hlnum{0.05}\hlstd{),} \hlkwc{ylim}\hlstd{=}\hlkwd{c}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{150}\hlstd{),}
        \hlkwc{main}\hlstd{=}\hlstr{"Propensity Score overlap"}\hlstd{,} \hlkwc{xlab}\hlstd{=}\hlstr{"PS"}\hlstd{)}
\hlkwd{hist}\hlstd{(ps1,} \hlkwc{col}\hlstd{=}\hlkwd{rgb}\hlstd{(}\hlnum{1}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{0.5}\hlstd{),} \hlkwc{breaks}\hlstd{=}\hlkwd{seq}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{1}\hlstd{,}\hlkwc{by}\hlstd{=}\hlnum{0.05}\hlstd{),} \hlkwc{add}\hlstd{=T);}\hlkwd{box}\hlstd{()}
\hlkwd{legend}\hlstd{(}\hlnum{0.6}\hlstd{,}\hlnum{150}\hlstd{,}\hlkwd{c}\hlstd{(}\hlstr{'Smoke = 0'}\hlstd{,} \hlstr{'Smoke = 1'}\hlstd{),}\hlkwc{col}\hlstd{=}\hlkwd{c}\hlstd{(}\hlkwd{rgb}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{1}\hlstd{,}\hlnum{0.5}\hlstd{),}\hlkwd{rgb}\hlstd{(}\hlnum{1}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{0.5}\hlstd{)),}\hlkwc{lty}\hlstd{=}\hlnum{1}\hlstd{)}
\end{alltt}
\end{kframe}

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

}


\begin{kframe}\begin{alltt}
\hlkwd{boxplot}\hlstd{(ps0,ps1,}\hlkwc{ylab}\hlstd{=}\hlstr{"PS"}\hlstd{,}\hlkwc{xlab}\hlstd{=}\hlstr{"Treatment Group"}\hlstd{,}\hlkwc{names}\hlstd{=}\hlkwd{c}\hlstd{(}\hlstr{'Smoke=0'}\hlstd{,}\hlstr{'Smoke=1'}\hlstd{),}
            \hlkwc{col}\hlstd{=}\hlkwd{c}\hlstd{(}\hlkwd{rgb}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{1}\hlstd{,}\hlnum{0.5}\hlstd{),}\hlkwd{rgb}\hlstd{(}\hlnum{1}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{0.5}\hlstd{)));}\hlkwd{abline}\hlstd{(}\hlkwc{h}\hlstd{=quints[}\hlnum{2}\hlopt{:}\hlnum{5}\hlstd{],}\hlkwc{col}\hlstd{=}\hlstr{"red"}\hlstd{)}
\end{alltt}
\end{kframe}

{\centering \includegraphics[width=\maxwidth]{figure/NH4a-2} 

}


\end{knitrout}