\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\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{mean}\hlstd{(matched.samp}\hlopt{$}\hlstd{BPSysAve[matched.samp}\hlopt{$}\hlstd{SmokeNow} \hlopt{==} \hlnum{1}\hlstd{])} \hlopt{-}
    \hlkwd{mean}\hlstd{(matched.samp}\hlopt{$}\hlstd{BPSysAve[matched.samp}\hlopt{$}\hlstd{SmokeNow} \hlopt{==} \hlnum{0}\hlstd{])}
\end{alltt}
\begin{verbatim}
+ [1] -1.090777
\end{verbatim}
\end{kframe}
\end{knitrout}