\begin{Schunk}
\begin{Sinput}
 hsb.mm1 <- model.matrix(m1)
 
\end{Sinput}
\end{Schunk}
