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

Coefficients:
   (Intercept) 
      Estimate Std. Error    t value  Pr(>|t|)
bc    -4.29360    8.64702 -0.4965409 0.6206972
prof  14.57006   14.50648  1.0043829 0.3178285
wc   -28.67688   19.98744 -1.4347448 0.1547505
   education 
     Estimate Std. Error  t value     Pr(>|t|)
bc   4.763651   1.024740 4.648644 1.112981e-05
prof 3.782846   1.025135 3.690096 3.794766e-04
wc   6.434589   1.807400 3.560135 5.889605e-04

Residual standard error: 7.827301 on 92 degrees of freedom
\end{Soutput}
\end{Schunk}
