\begin{Schunk}
\begin{Sinput}
 nhanesf <- nhanes
 nhanesf$age <- factor(nhanesf$age, labels = c("20-39", "40-59", "60-99"))
 nhanesf$hyp <- factor(nhanesf$hyp, labels = c("no","yes"))
 imp2 <- mice(nhanes, printFlag = FALSE) 
 fit2 <- with(data = imp2, exp = lm(bmi~hyp+chl))
 pool(fit2)
\end{Sinput}
\begin{Soutput}
Call: pool(object = fit2)

Pooled coefficients:
(Intercept)         hyp         chl 
     23.613      -1.486       0.027 

Fraction of information about the coefficients missing due to nonresponse: 
(Intercept)         hyp         chl 
       0.42        0.25        0.34 
\end{Soutput}
\end{Schunk}
