\begin{Schunk}
\begin{Sinput}
 dat$hat <- hatvalues(EXfull2)
 sum(dat$hat)
\end{Sinput}
\begin{Soutput}
[1] 8
\end{Soutput}
\begin{Sinput}
 data.frame(dat$STATE, dat$hat)
\end{Sinput}
\begin{Soutput}
   dat.STATE    dat.hat
1         ME 0.23415534
2         NH 0.17526633
3         VT 0.27304741
4         MA 0.18281108
5         RI 0.21080976
6         CT 0.07958478
7         NY 0.18604721
8         NJ 0.10979861
9         PA 0.09538661
10        DE 0.10110559
11        MD 0.12496151
12        VA 0.16889251
13        MI 0.09095306
14        OH 0.06345230
15        IN 0.11065150
16        IL 0.08972339
17        WI 0.10423534
18        WV 0.13199636
19        KY 0.08691080
20        TE 0.09405849
21        NC 0.13631340
22        SC 0.20486326
23        GA 0.11973012
24        FL 0.61700902
25        AL 0.13918706
26        MS 0.17395231
27        MN 0.13098872
28        IA 0.12868998
29        MO 0.14694238
30        ND 0.09435984
31        SD 0.07937192
32        NB 0.12906992
33        KS 0.11410482
34        LA 0.17548605
35        AR 0.10690714
36        OK 0.12079254
37        TX 0.09309054
38        NM 0.20211747
39        AZ 0.32825519
40        MT 0.05800827
41        ID 0.18825921
42        WY 0.26252732
43        CO 0.20389684
44        UT 0.30268011
45        WA 0.07639581
46        OR 0.08367912
47        NV 0.65270615
48        CA 0.21676752
\end{Soutput}
\end{Schunk}
