\begin{Schunk}
\begin{Sinput}
  f <- factor(x, levels = c("A","B","C"), labels = c("A","B","B"))
\end{Sinput}
\end{Schunk}
