\begin{Schunk}
\begin{Sinput}
 head(model.matrix(mod1))
\end{Sinput}
\begin{Soutput}
  (Intercept) schtypeprivate
1           1              1
3           1              0
5           1              0
6           1              1
7           1              0
8           1              0
\end{Soutput}
\end{Schunk}
