\begin{Schunk}
\begin{Sinput}
 mod2mm <- model.matrix(mod2)
 head(mod2mm)
\end{Sinput}
\begin{Soutput}
  (Intercept) V043250 V041109AF
1           1      50         0
2           1      47         0
3           1      37         1
4           1      71         0
5           1      62         1
6           1      53         0
\end{Soutput}
\end{Schunk}
