\begin{Schunk}
\begin{Sinput}
 mod3mm <- model.matrix(mod3)
 head(mod3mm, 10)
\end{Sinput}
\begin{Soutput}
   (Intercept) V043250 V041109AF V043116L V043116SL V043116M V043116SC V043116C V043116EC
1            1      50         0        0         0        1         0        0         0
2            1      47         0        0         1        0         0        0         0
3            1      37         1        0         0        0         0        1         0
5            1      62         1        0         0        0         0        1         0
6            1      53         0        0         0        1         0        0         0
7            1      49         1        0         0        0         1        0         0
8            1      56         1        0         0        1         0        0         0
10           1      47         1        0         0        0         0        1         0
11           1      30         0        0         0        1         0        0         0
13           1      44         0        0         0        1         0        0         0
\end{Soutput}
\end{Schunk}
