\begin{Schunk}
\begin{Sinput}
 dat$newpolv <- factor(dat$newpolv)
 table(dat$newpolv)
\end{Sinput}
\begin{Soutput}
EXTREMELY LIBERAL           LIBERAL 
              139               524 
 SLIGHTLY LIBERAL          MODERATE 
              517              1683 
     CONSERVATIVE 
             1470 
\end{Soutput}
\end{Schunk}
