\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlkwd{library}\hlstd{(NHANES);} \hlkwd{library}\hlstd{(tableone);} \hlkwd{library}\hlstd{(Matching)} \hlcom{#Must be pre-loaded in R}
\hlstd{NHANES}\hlopt{$}\hlstd{SmokeNow} \hlkwb{<-} \hlkwd{as.numeric}\hlstd{(NHANES}\hlopt{$}\hlstd{SmokeNow)}\hlopt{-}\hlnum{1}
\hlstd{small.nhanes} \hlkwb{<-} \hlkwd{na.omit}\hlstd{(NHANES[NHANES}\hlopt{$}\hlstd{SurveyYr}\hlopt{==}\hlstr{"2011_12"}
                      \hlopt{&} \hlstd{NHANES}\hlopt{$}\hlstd{Age} \hlopt{>} \hlnum{17}\hlstd{,}\hlkwd{c}\hlstd{(}\hlnum{3}\hlstd{,}\hlnum{4}\hlstd{,}\hlnum{8}\hlopt{:}\hlnum{11}\hlstd{,}\hlnum{13}\hlstd{,}\hlnum{25}\hlstd{,}\hlnum{61}\hlstd{)])}
\hlcom{#dim(small.nhanes) ## 1377}
\hlstd{vars} \hlkwb{<-} \hlkwd{c}\hlstd{(}\hlstr{"Gender"}\hlstd{,} \hlstr{"Age"}\hlstd{,} \hlstr{"Race3"}\hlstd{,} \hlstr{"Education"}\hlstd{,} \hlstr{"MaritalStatus"}\hlstd{,} \hlstr{"Poverty"}\hlstd{)}
\hlstd{fit0}\hlkwb{<-}\hlkwd{lm}\hlstd{(BPSysAve}\hlopt{~}\hlstd{SmokeNow,}\hlkwc{data}\hlstd{=small.nhanes)}
\hlkwd{round}\hlstd{(}\hlkwd{coef}\hlstd{(}\hlkwd{summary}\hlstd{(fit0)),}\hlnum{5}\hlstd{)}
\end{alltt}
\begin{verbatim}
+              Estimate Std. Error   t value Pr(>|t|)
+ (Intercept) 125.61381    0.63365 198.23993  0.00000
+ SmokeNow     -3.67936    0.96395  -3.81696  0.00014
\end{verbatim}
\begin{alltt}
\hlstd{fmod}\hlkwb{<-}\hlkwd{formula}\hlstd{(BPSysAve}\hlopt{~}\hlstd{SmokeNow}\hlopt{+}\hlstd{Gender}\hlopt{+}\hlstd{Age}\hlopt{+}\hlstd{Race3}\hlopt{+}\hlstd{Education}\hlopt{+}\hlstd{MaritalStatus}\hlopt{+}\hlstd{HHIncome}\hlopt{+}\hlstd{Poverty)}
\hlstd{fit1}\hlkwb{<-}\hlkwd{lm}\hlstd{(fmod,}\hlkwc{data}\hlstd{=small.nhanes)}
\hlkwd{round}\hlstd{(}\hlkwd{coef}\hlstd{(}\hlkwd{summary}\hlstd{(fit1))[}\hlnum{1}\hlopt{:}\hlnum{2}\hlstd{,],}\hlnum{5}\hlstd{)}
\end{alltt}
\begin{verbatim}
+              Estimate Std. Error  t value Pr(>|t|)
+ (Intercept) 107.25006    4.75287 22.56534  0.00000
+ SmokeNow     -1.09777    0.93042 -1.17986  0.23826
\end{verbatim}
\end{kframe}
\end{knitrout}