\begin{Schunk}
\begin{Sinput}
 pctable(yobs ~ x, data = dat)
\end{Sinput}
\begin{Soutput}
Count (column %)
     x
yobs  0          1          Sum 
  0   452(88.6%) 125(25.5%) 577 
  1   58(11.4%)  365(74.5%) 423 
  Sum 510        490        1000
\end{Soutput}
\end{Schunk}
