\begin{Schunk}
\begin{Sinput}
 library(rockchalk)
 pctable(gunlaw ~ owngun, data = dat, rvlab = "Stance on Gun Registration", cvlab = "Does Respondent Own a Gun?")
\end{Sinput}
\begin{Soutput}
Count (column %)
                          Does Respondent Own a Gun?
Stance on Gun Registration YES        NO          REFUSED
                    FAVOR  464(70.7%) 1085(84.9%) 17(63%)
                    OPPOSE 192(29.3%) 193(15.1%)  10(37%)
                    Sum    656        1278        27     
                          Does Respondent Own a Gun?
Stance on Gun Registration Sum 
                    FAVOR  1566
                    OPPOSE 395 
                    Sum    1961
\end{Soutput}
\end{Schunk}
