\begin{Schunk}
\begin{Sinput}
 newdf <- expand.grid(V043250 = V043250r, V041109A = levels(mydta1$V041109A) )
 newdf
\end{Sinput}
\begin{Soutput}
  V043250 V041109A
1      18        M
2      90        M
3      18        F
4      90        F
\end{Soutput}
\end{Schunk}
