\begin{Schunk}
\begin{Sinput}
 t1 <- with(dat, table(pres04, partyid))
 t1
\end{Sinput}
\begin{Soutput}
                 partyid
pres04            STRONG DEMOCRAT NOT STR DEMOCRAT IND,NEAR DEM INDEPENDENT IND,NEAR REP NOT STR REPUBLICAN STRONG REPUBLICAN OTHER PARTY
  KERRY                       540              397          276         132           30                 41                 8           9
  BUSH                         25               99           48         168          184                445               448          24
  NADER                         3                4            4          25            2                  3                 0           6
  OTHER (SPECIFY)               0                0            0           0            0                  0                 0           0
  DIDNT VOTE                    1                3            1           8            3                  0                 1           0
\end{Soutput}
\end{Schunk}
