\begin{Schunk}
\begin{Sinput}
 summary(reg.mod.1)
\end{Sinput}
\begin{Soutput}
Call:
lm(formula = posAffect ~ agency, data = dat)

Residuals:
     Min       1Q   Median       3Q      Max 
-2.06107 -0.37515  0.04591  0.45144  1.39929 

Coefficients:
            Estimate Std. Error t value Pr(>|t|)    
(Intercept)  2.18828    0.15963  13.708  < 2e-16 ***
agency       0.34912    0.06233   5.601  4.1e-08 ***
---
Signif. codes:  
0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

Residual standard error: 0.6077 on 378 degrees of freedom
Multiple R-squared:  0.07664,	Adjusted R-squared:  0.0742 
F-statistic: 31.37 on 1 and 378 DF,  p-value: 4.103e-08
\end{Soutput}
\end{Schunk}
