\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{3}\hlstd{,}\hlnum{4}\hlstd{,}\hlnum{0}\hlstd{),}\hlkwc{mfrow}\hlstd{=}\hlkwd{c}\hlstd{(}\hlnum{3}\hlstd{,}\hlnum{2}\hlstd{),}\hlkwc{oma}\hlstd{=}\hlkwd{c}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{0}\hlstd{,}\hlnum{2}\hlstd{,}\hlnum{0}\hlstd{))}
\hlkwa{for}\hlstd{(k} \hlkwa{in} \hlnum{1}\hlopt{:}\hlnum{5}\hlstd{)\{}
    \hlstd{age0} \hlkwb{<-} \hlstd{small.nhanes}\hlopt{$}\hlstd{Age[Smoke}\hlopt{==}\hlnum{0} \hlopt{&} \hlstd{Pcat}\hlopt{==}\hlstd{k]}
    \hlstd{age1} \hlkwb{<-} \hlstd{small.nhanes}\hlopt{$}\hlstd{Age[Smoke}\hlopt{==}\hlnum{1} \hlopt{&} \hlstd{Pcat}\hlopt{==}\hlstd{k]}
    \hlstd{ecdf0} \hlkwb{<-} \hlkwd{ecdf}\hlstd{(age0)}
    \hlstd{ecdf1} \hlkwb{<-} \hlkwd{ecdf}\hlstd{(age1)}
    \hlkwd{plot}\hlstd{(ecdf0,} \hlkwc{verticals}\hlstd{=}\hlnum{TRUE}\hlstd{,} \hlkwc{do.points}\hlstd{=}\hlnum{FALSE}\hlstd{,}
        \hlkwc{main}\hlstd{=}\hlkwd{substitute}\hlstd{(}\hlkwd{paste}\hlstd{(}\hlstr{'Quintile '}\hlstd{,k),}\hlkwd{list}\hlstd{(}\hlkwc{k}\hlstd{=k)),}\hlkwc{col}\hlstd{=}\hlstr{'blue'}\hlstd{)}
    \hlkwd{plot}\hlstd{(ecdf1,} \hlkwc{verticals}\hlstd{=}\hlnum{TRUE}\hlstd{,} \hlkwc{do.points}\hlstd{=}\hlnum{FALSE}\hlstd{,} \hlkwc{add}\hlstd{=}\hlnum{TRUE}\hlstd{,} \hlkwc{col}\hlstd{=}\hlstr{'red'}\hlstd{)}
\hlstd{\}}
\hlkwd{plot}\hlstd{(age0,}\hlkwc{type}\hlstd{=}\hlstr{'n'}\hlstd{,}\hlkwc{ylim}\hlstd{=}\hlkwd{range}\hlstd{(}\hlnum{0}\hlstd{,}\hlnum{1}\hlstd{),}\hlkwc{axes}\hlstd{=}\hlnum{FALSE}\hlstd{)}
\hlkwd{title}\hlstd{(}\hlstr{"ECDFs for Age by PS quintile"}\hlstd{,}\hlkwc{outer} \hlstd{=} \hlnum{TRUE}\hlstd{)}
\hlkwd{legend}\hlstd{(}\hlnum{30}\hlstd{,}\hlnum{0.75}\hlstd{,}\hlkwd{c}\hlstd{(}\hlstr{'Smoke = 0'}\hlstd{,} \hlstr{'Smoke = 1'}\hlstd{),}\hlkwc{col}\hlstd{=}\hlkwd{c}\hlstd{(}\hlstr{'blue'}\hlstd{,}\hlstr{'red'}\hlstd{),}\hlkwc{lty}\hlstd{=}\hlnum{1}\hlstd{)}
\end{alltt}
\end{kframe}

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

}


\end{knitrout}