\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\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) 166.9392    0.82775 201.67891        0
+ SmokeNow    -10.7529    1.25923  -8.53924        0
\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) 81.28080    1.78174 45.6188        0
+ SmokeNow     3.83825    0.34879 11.0044        0
\end{verbatim}
\end{kframe}
\end{knitrout}