\begin{Schunk}
\begin{Sinput}
 imp <- mice(nhanes, printFlag = FALSE) 
 fit <- with(data = imp, exp = lm(bmi ~ hyp + chl))
 fitpool <- pool(fit)
 fitpool
\end{Sinput}
\begin{Soutput}
Call: pool(object = fit)

Pooled coefficients:
(Intercept)         hyp         chl 
     20.592      -1.176       0.037 

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