\begin{Schunk}
\begin{Sinput}
 dat$rstudent <- rstudent(EXfull2)
 data.frame(dat$STATE, dat$rstudent)
\end{Sinput}
\begin{Soutput}
   dat.STATE  dat.rstudent
1         ME -0.0830314752
2         NH -0.1216363463
3         VT  0.6722932872
4         MA -0.1674253027
5         RI -0.6929036305
6         CT  0.0168367085
7         NY  2.2406338622
8         NJ -1.5135538944
9         PA -0.5548082074
10        DE  1.2318804298
11        MD -0.0005230868
12        VA -0.0581410616
13        MI  0.8430612398
14        OH -0.2720936729
15        IN -0.3530324532
16        IL -0.4654124666
17        WI  0.9196178134
18        WV -0.2333031142
19        KY -0.5309363436
20        TE  0.2499986692
21        NC -1.0209190989
22        SC -0.5056470467
23        GA  0.5010905339
24        FL  0.0989555890
25        AL -0.4507623775
26        MS -1.0617123811
27        MN  1.4301821503
28        IA -0.0417738620
29        MO -1.8091618788
30        ND  1.6863319733
31        SD -0.1350260816
32        NB -0.6152002188
33        KS -0.1602475953
34        LA  0.0033229393
35        AR -1.9322821966
36        OK  0.5709463362
37        TX -1.2807244666
38        NM  0.8554655578
39        AZ -0.2925974799
40        MT  0.8918466200
41        ID -2.0877223703
42        WY  2.2783571429
43        CO -0.0840338916
44        UT  0.7492301404
45        WA  1.1095461540
46        OR  1.7306240332
47        NV -3.1046093219
48        CA  0.4936107841
\end{Soutput}
\end{Schunk}
