\begin{Schunk}
\begin{Sinput}
 ib1 <- influence(bush1)
 head(ib1$hat)
\end{Sinput}
\begin{Soutput}
       1        4        5        9       10 
0.003941 0.003941 0.004117 0.003941 0.005226 
      11 
0.005226 
\end{Soutput}
\begin{Sinput}
 head(ib1$coefficients)
\end{Sinput}
\begin{Soutput}
   (Intercept) partyidDem. partyidInd. Near Dem.
1   -0.0052361    0.005286             0.0052149
4   -0.0052361    0.005286             0.0052149
5   -0.0059698    0.005023             0.0051036
9   -0.0052361    0.005286             0.0052149
10  -0.0005007    0.019143             0.0007462
11   0.0001594   -0.006095            -0.0002376
   partyidIndependent partyidInd. Near Repub.
1           0.0052232               0.0053054
4           0.0052232               0.0053054
5           0.0051290               0.0052763
9           0.0052232               0.0053054
10          0.0006130              -0.0007269
11         -0.0001952               0.0002315
   partyidRepub. partyidStrong Repub.  sexFemale
1      0.0053094            5.274e-03 -0.0004822
4      0.0053094            5.274e-03 -0.0004822
5      0.0052130            5.165e-03  0.0009737
9      0.0053094            5.274e-03 -0.0004822
10    -0.0008014           -2.216e-04  0.0080812
11     0.0002552            7.056e-05 -0.0025732
   owngunYES
1   0.000635
4   0.000635
5   0.000730
9   0.000635
10 -0.010400
11  0.003312
\end{Soutput}
\begin{Sinput}
 head(ib1$sigma)
\end{Sinput}
\begin{Soutput}
     1      4      5      9     10     11 
0.7871 0.7871 0.7871 0.7871 0.7853 0.7870 
\end{Soutput}
\begin{Sinput}
 head(ib1$dev.res)
\end{Sinput}
\begin{Soutput}
      1       4       5       9      10      11 
-0.2413 -0.2413 -0.2355 -0.2413  1.8942 -0.6031 
\end{Soutput}
\begin{Sinput}
 head(ib1$pear.res)
\end{Sinput}
\begin{Soutput}
      1       4       5       9      10      11 
-0.1718 -0.1718 -0.1677 -0.1718  2.2390 -0.4466 
\end{Soutput}
\end{Schunk}
