\begin{Schunk}
\begin{Sinput}
 load("../../DataSets/GSS/gss-subset2.Rda")
 with(dat, table(gunlaw, owngun) )
\end{Sinput}
\begin{Soutput}
        owngun
gunlaw    YES   NO REFUSED
  FAVOR   464 1085      17
  OPPOSE  192  193      10
\end{Soutput}
\end{Schunk}
