\begin{Schunk}
\begin{Sinput}
  coef(summary(lm(newed ~ grpfac4, data = dat)))[,1:2]
\end{Sinput}
\begin{Soutput}
                Estimate Std. Error
(Intercept)    14.833333   1.565850
grpfac4Western -4.404762   2.133893
grpfac4Midwest -2.666667   2.214446
\end{Soutput}
\end{Schunk}
