\begin{Schunk}
\begin{Sinput}
 (t1 <- table(dat$schtype))
\end{Sinput}
\begin{Soutput}
 public private 
    434     769 
\end{Soutput}
\begin{Sinput}
 prop.table(t1)
\end{Sinput}
\begin{Soutput}
   public   private 
0.3607648 0.6392352 
\end{Soutput}
\end{Schunk}
