\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{Pcat}\hlkwb{<-}\hlkwd{as.numeric}\hlstd{(}\hlkwd{cut}\hlstd{(ps.lr,quints,}\hlkwc{include.lowest}\hlstd{=T))}
\hlstd{W}\hlkwb{<-}\hlstd{(Smoke}\hlopt{==}\hlnum{0}\hlstd{)}\hlopt{/}\hlstd{(}\hlnum{1}\hlopt{-}\hlstd{ps.lr)}\hlopt{+}\hlstd{(Smoke}\hlopt{==}\hlnum{1}\hlstd{)}\hlopt{/}\hlstd{ps.lr}
\hlstd{smd.mat}\hlkwb{<-}\hlkwd{ExtractSmd}\hlstd{(tabUnmatched)}
\hlkwa{for}\hlstd{(k} \hlkwa{in} \hlnum{1}\hlopt{:}\hlnum{5}\hlstd{)\{}
    \hlstd{nhanesQ}\hlkwb{<-}\hlstd{small.nhanes[Pcat} \hlopt{==} \hlstd{k,]}
    \hlstd{tabQs} \hlkwb{<-} \hlkwd{CreateTableOne}\hlstd{(}\hlkwc{vars} \hlstd{= vars,} \hlkwc{strata} \hlstd{=} \hlstr{"SmokeNow"}\hlstd{,} \hlkwc{data} \hlstd{= nhanesQ,} \hlkwc{test} \hlstd{=} \hlnum{FALSE}\hlstd{)}
    \hlstd{smd.mat}\hlkwb{<-}\hlkwd{cbind}\hlstd{(smd.mat,}\hlkwd{ExtractSmd}\hlstd{(tabQs))}
\hlstd{\}}
\hlkwd{colnames}\hlstd{(smd.mat)}\hlkwb{<-}\hlkwd{c}\hlstd{(}\hlstr{'Original'}\hlstd{,}\hlstr{'Q1'}\hlstd{,}\hlstr{'Q2'}\hlstd{,}\hlstr{'Q3'}\hlstd{,}\hlstr{'Q4'}\hlstd{,}\hlstr{'Q5'}\hlstd{)}
\hlkwd{round}\hlstd{(smd.mat,}\hlnum{4}\hlstd{)}
\end{alltt}
\begin{verbatim}
+               Original     Q1     Q2     Q3     Q4     Q5
+ Gender          0.1379 0.1017 0.1043 0.0286 0.2003 0.0308
+ Age             0.5918 0.2574 0.1715 0.0993 0.3106 0.1642
+ Race3           0.3148 0.3169 0.1117 0.3444 0.4147 0.2869
+ Education       0.5119 0.5378 0.4167 0.2800 0.2378 0.3018
+ MaritalStatus   0.4877 0.4320 0.2386 0.2725 0.2332 0.2608
+ Poverty         0.4530 0.0865 0.1256 0.1136 0.0041 0.1455
\end{verbatim}
\end{kframe}
\end{knitrout}