\begin{Schunk}
\begin{Sinput}
 t1.marg <- margin.table(t1, margin=2)
 t1.result <- rbind(t1.prop, t1.marg)
 t1.result
\end{Sinput}
\begin{Soutput}
          YES     NO REFUSED   <NA>
FAVOR    69.9   83.0    56.7    0.1
OPPOSE   28.9   14.8    33.3    0.0
<NA>      1.2    2.2    10.0   99.9
t1.marg 664.0 1307.0    30.0 2509.0
\end{Soutput}
\end{Schunk}
