\begin{Schunk}
\begin{Sinput}
 library(descr);
 descrCT <- with(dat , descr::CrossTable(gunlaw, owngun))
 descrCT
\end{Sinput}
\begin{Soutput}
   Cell Contents 
|-------------------------|
|                       N | 
| Chi-square contribution | 
|           N / Row Total | 
|           N / Col Total | 
|         N / Table Total | 
|-------------------------|

===========================================
          owngun
gunlaw       YES       NO   REFUSED   Total
-------------------------------------------
FAVOR        464     1085        17    1566
           6.841    4.067     0.965        
           0.296    0.693     0.011   0.799
           0.707    0.849     0.630        
           0.237    0.553     0.009        
-------------------------------------------
OPPOSE       192      193        10     395
          27.121   16.123     3.826        
           0.486    0.489     0.025   0.201
           0.293    0.151     0.370        
           0.098    0.098     0.005        
-------------------------------------------
Total        656     1278        27    1961
           0.335    0.652     0.014        
===========================================
\end{Soutput}
\end{Schunk}
