\begin{Schunk}
\begin{Sinput}
 library(rockchalk)
 p1 <- pctable(gunlaw ~ owngun, data=dat)
\end{Sinput}
\begin{Soutput}
Count (column %)
        owngun
gunlaw   YES        NO          REFUSED Sum 
  FAVOR  464(70.7%) 1085(84.9%) 17(63%) 1566
  OPPOSE 192(29.3%) 193(15.1%)  10(37%) 395 
  Sum    656        1278        27      1961
\end{Soutput}
\end{Schunk}
