\begin{Schunk}
\begin{Sinput}
 library(lme4)
 lml1 <- lmList( prestige ~ education | type, data=Prestige, pool=F)
 summary(lml1)
\end{Sinput}
\begin{Soutput}
Call:
  Model: prestige ~ education | NULL 
   Data: Prestige 

Coefficients:
   (Intercept) 
      Estimate Std. Error    t value  Pr(>|t|)
bc    -4.29360   9.331097 -0.4601388 0.6477900
prof  14.57006  12.989195  1.1217058 0.2711899
wc   -28.67688  19.428032 -1.4760567 0.1547669
   education 
     Estimate Std. Error  t value     Pr(>|t|)
bc   4.763651  1.1058084 4.307845 9.708717e-05
prof 3.782846  0.9179125 4.121140 2.876492e-04
wc   6.434589  1.7568147 3.662645 1.451257e-03
\end{Soutput}
\end{Schunk}
