\begin{Schunk}
\begin{Sinput}
 xf2 <- factor(x, levels = c(7, 2, 1))
 levels(xf2)
\end{Sinput}
\begin{Soutput}
[1] "7" "2" "1"
\end{Soutput}
\end{Schunk}
