\begin{Schunk}
\begin{Sinput}
  xf1levs <- levels(xf1)
  xf1[1] <-  xf1levs[2]
\end{Sinput}
\end{Schunk}
