\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlkwd{library}\hlstd{(survey);}\hlkwd{library}\hlstd{(Hmisc);}\hlkwd{library}\hlstd{(htmlwidgets)} \hlcom{#Must be pre-loaded in R}
\hlstd{ps.lr.weight} \hlkwb{<-} \hlstd{small.nhanes}\hlopt{$}\hlstd{SmokeNow}\hlopt{/}\hlstd{ps.lr} \hlopt{+} \hlstd{(}\hlnum{1}\hlopt{-}\hlstd{small.nhanes}\hlopt{$}\hlstd{SmokeNow)}\hlopt{/}\hlstd{(}\hlnum{1}\hlopt{-}\hlstd{ps.lr)}
\hlstd{nhanes.IPW.lr} \hlkwb{<-} \hlkwd{svydesign}\hlstd{(}\hlkwc{ids}\hlstd{=}\hlopt{~}\hlnum{0}\hlstd{,} \hlkwc{data}\hlstd{=small.nhanes,} \hlkwc{weights}\hlstd{=ps.lr.weight)}
\hlstd{tabIPW}\hlkwb{<-}\hlkwd{svyCreateTableOne}\hlstd{(}\hlkwc{vars} \hlstd{= vars,} \hlkwc{strata} \hlstd{=} \hlstr{"SmokeNow"}\hlstd{,}\hlkwc{data} \hlstd{= nhanes.IPW.lr,} \hlkwc{test} \hlstd{=} \hlnum{FALSE}\hlstd{)}
\end{alltt}
\end{kframe}
\end{knitrout}