\begin{Schunk}
\begin{Sinput}
 library(gmodels)
 with(dat, CrossTable(gunlaw, owngun))