\begin{Schunk}
\begin{Sinput}
 str(dat$w)
\end{Sinput}
\begin{Soutput}
 chr [1:48] "g" "f" "i" "h" "g" "i" "h" "f" "j" "g" "f" "h" "h" "g" "j" "f" "g" "j" "g" "f" "i" ...
\end{Soutput}
\begin{Sinput}
 str(dat$w2)
\end{Sinput}
\begin{Soutput}
 Factor w/ 5 levels "f","g","h","i",..: 2 1 4 3 2 4 3 1 5 2 ...
\end{Soutput}
\end{Schunk}
