\begin{Schunk}
\begin{Sinput}
 anes1$V043210 <- factor(anes1$V043210, levels = c("No", "Some", "Allow"))
 table(anes1.orig$V043210, anes1$V043210)
\end{Sinput}
\begin{Soutput}
                                                           No Some Allow
  1. Should be allowed                                      0    0   400
  3. Should not be allowed                                705    0     0
  5. Should not be allowed to marry but should be allowed   0   41     0
  VOL                                                       0    0     0
  8. Don't know                                             0    0     0
  9. Refused                                                0    0     0
\end{Soutput}
\end{Schunk}
