\begin{knitrout}
\definecolor{shadecolor}{rgb}{0.969, 0.969, 0.969}\color{fgcolor}\begin{kframe}
\begin{alltt}
\hlstd{nhanes.allsmoke} \hlkwb{<-} \hlstd{small.nhanes}
\hlstd{nhanes.allsmoke}\hlopt{$}\hlstd{SmokeNow} \hlkwb{<-} \hlnum{1}
\hlstd{nhanes.nosmoke} \hlkwb{<-} \hlstd{small.nhanes}
\hlstd{nhanes.nosmoke}\hlopt{$}\hlstd{SmokeNow} \hlkwb{<-} \hlnum{0}
\hlstd{mod1.lm} \hlkwb{<-} \hlkwd{lm}\hlstd{(fmod,}\hlkwc{data}\hlstd{=small.nhanes)}
\hlstd{APO.lm.1} \hlkwb{<-} \hlkwd{mean}\hlstd{(}\hlkwd{predict}\hlstd{(mod1.lm,nhanes.allsmoke))}
\hlstd{APO.lm.0} \hlkwb{<-} \hlkwd{mean}\hlstd{(}\hlkwd{predict}\hlstd{(mod1.lm,nhanes.nosmoke))}
\hlstd{APO.lm.1} \hlopt{-} \hlstd{APO.lm.0}  \hlcom{#Note: same as for previous answer regression}
\end{alltt}
\begin{verbatim}
+ [1] -1.097768
\end{verbatim}
\end{kframe}
\end{knitrout}