\begin{Schunk}
\begin{Sinput}
 m2.inf <- influence.measures(m2)
 summary(m2.inf)
\end{Sinput}
\begin{Soutput}
Potentially influential observations of
	 lm(formula = PosAFF1 ~ genderf + Agency1, data = affect) :

    dfb.1_ dfb.gndr dfb.Agn1 dffit   cov.r   cook.d hat    
26   0.32  -0.11    -0.29     0.33_*  1.00    0.04   0.03_*
38   0.06  -0.03    -0.05     0.06    1.02_*  0.00   0.02  
95   0.10   0.04    -0.12    -0.13    1.03_*  0.01   0.03_*
124 -0.01  -0.01     0.01     0.01    1.03_*  0.00   0.02  
136  0.14  -0.05    -0.12     0.14    1.03_*  0.01   0.03_*
146 -0.09  -0.03     0.11     0.12    1.03_*  0.01   0.03_*
177  0.00   0.13    -0.05    -0.19    0.96_*  0.01   0.01  
193  0.22   0.10    -0.27    -0.32_*  0.99    0.03   0.02  
194  0.22   0.10    -0.27    -0.32_*  0.99    0.03   0.02  
219  0.06  -0.12    -0.06    -0.17    0.98_*  0.01   0.01  
245  0.08   0.03    -0.09     0.10    1.03_*  0.00   0.02  
252 -0.10   0.04     0.10     0.12    1.03_*  0.00   0.03_*
274 -0.11  -0.12     0.12    -0.21    0.97_*  0.01   0.01  
275  0.02  -0.14    -0.02    -0.19    0.96_*  0.01   0.01  
336  0.08  -0.18    -0.08    -0.27_*  0.92_*  0.02   0.01  
365  0.02   0.01    -0.02     0.03    1.03_*  0.00   0.02  
376  0.02  -0.14    -0.02    -0.19    0.96_*  0.01   0.01  
380 -0.13  -0.12     0.14    -0.22    0.98_*  0.02   0.01  
\end{Soutput}
\end{Schunk}
