\begin{Schunk}
\begin{Sinput}
 library(gmodels)
 CrossTable(dat$gunlaw, dat$owngun)
\end{Sinput}
\begin{Soutput}
   Cell Contents
|-------------------------|
|                       N |
| Chi-square contribution |
|           N / Row Total |
|           N / Col Total |
|         N / Table Total |
|-------------------------|

 
Total Observations in Table:  1961 

 
             | dat$owngun 
  dat$gunlaw |       YES |        NO |   REFUSED | Row 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 |           | 
-------------|-----------|-----------|-----------|-----------|
Column Total |       656 |      1278 |        27 |      1961 | 
             |     0.335 |     0.652 |     0.014 |           | 
-------------|-----------|-----------|-----------|-----------|
\end{Soutput}
\end{Schunk}
