\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{fmodi}\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}\hlopt{+}\hlstd{SmokeNow}\hlopt{:}\hlstd{HHIncome}\hlopt{+}\hlstd{SmokeNow}\hlopt{:}\hlstd{Gender}\hlopt{+}\hlstd{SmokeNow}\hlopt{:}\hlstd{Age)}
\hlstd{mod1.lmX} \hlkwb{<-} \hlkwd{lm}\hlstd{(fmodi,}\hlkwc{data}\hlstd{=small.nhanes)}
\hlkwd{coef}\hlstd{(}\hlkwd{summary}\hlstd{(mod1.lmX))[}\hlkwd{c}\hlstd{(}\hlnum{2}\hlstd{,}\hlnum{10}\hlstd{,}\hlnum{11}\hlstd{,}\hlnum{12}\hlstd{),]}
\end{alltt}
\begin{verbatim}
+                           Estimate Std. Error    t value   Pr(>|t|)
+ SmokeNow                -14.280706   6.041067 -2.3639377 0.01822449
+ Education9 - 11th Grade  -2.953706   2.070564 -1.4265223 0.15395163
+ EducationHigh School     -3.063842   1.958024 -1.5647624 0.11787581
+ EducationSome College    -1.228311   1.931240 -0.6360218 0.52487131
\end{verbatim}
\begin{alltt}
\hlstd{APO.lmX.1} \hlkwb{<-} \hlkwd{mean}\hlstd{(}\hlkwd{predict}\hlstd{(mod1.lmX,nhanes.allsmoke))}
\hlstd{APO.lmX.0} \hlkwb{<-} \hlkwd{mean}\hlstd{(}\hlkwd{predict}\hlstd{(mod1.lmX,nhanes.nosmoke))}
\hlstd{APO.lmX.1} \hlopt{-} \hlstd{APO.lmX.0}
\end{alltt}
\begin{verbatim}
+ [1] -1.402538
\end{verbatim}
\end{kframe}
\end{knitrout}