\begin{Schunk}
\begin{Sinput}
  coef(summary(lm(newed ~ grpfac2, data = dat)))[ ,1:2]
\end{Sinput}
\begin{Soutput}
                Estimate Std. Error
(Intercept)    10.428571   1.449695
grpfac2Midwest  1.738095   2.133893
grpfac2Eastern  4.404762   2.133893
\end{Soutput}
\end{Schunk}
