\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{small.nhanes}\hlopt{$}\hlstd{ps.lr}\hlkwb{<-}\hlstd{ps.lr}
\hlstd{ps.lr.match} \hlkwb{<-} \hlkwd{Match}\hlstd{(}\hlkwc{Tr}\hlstd{=small.nhanes}\hlopt{$}\hlstd{SmokeNow,}\hlkwc{X}\hlstd{=small.nhanes}\hlopt{$}\hlstd{ps.lr,}\hlkwc{estimand}\hlstd{=}\hlstr{"ATE"}\hlstd{,}\hlkwc{ties}\hlstd{=}\hlnum{FALSE}\hlstd{)}
\hlstd{matched.samp} \hlkwb{<-} \hlstd{small.nhanes[}\hlkwd{c}\hlstd{(ps.lr.match}\hlopt{$}\hlstd{index.control,ps.lr.match}\hlopt{$}\hlstd{index.treated),]}
\hlkwd{table}\hlstd{(}\hlkwd{table}\hlstd{(}\hlkwd{c}\hlstd{(ps.lr.match}\hlopt{$}\hlstd{index.control, ps.lr.match}\hlopt{$}\hlstd{index.treated)))}
\end{alltt}
\begin{verbatim}
+ 
+   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16  23  29  38 
+ 835 268 127  51  35  18   9   5   2   4   5   3   3   3   4   2   1   1   1
\end{verbatim}
\begin{alltt}
\hlstd{tabMatched}\hlkwb{<-}\hlkwd{CreateTableOne}\hlstd{(}\hlkwc{vars} \hlstd{= vars,} \hlkwc{strata} \hlstd{=} \hlstr{"SmokeNow"}\hlstd{,}\hlkwc{data} \hlstd{= matched.samp,} \hlkwc{test} \hlstd{=} \hlnum{FALSE}\hlstd{)}
\end{alltt}
\end{kframe}
\end{knitrout}