\begin{Schunk}
\begin{Sinput}
 dfb1 <- dfbeta(bush1)
 colnames(dfb1)
\end{Sinput}
\begin{Soutput}
[1] "(Intercept)"            
[2] "partyidDem."            
[3] "partyidInd. Near Dem."  
[4] "partyidIndependent"     
[5] "partyidInd. Near Repub."
[6] "partyidRepub."          
[7] "partyidStrong Repub."   
[8] "sexFemale"              
[9] "owngunYES"              
\end{Soutput}
\begin{Sinput}
 head(dfb1)
\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}
\end{Schunk}
