\begin{Schunk}
\begin{Sinput}
  x <- factor(c("A","B","C","B","C","A"))
  xrc <- rockchalk::combineLevels(x, c("B","C"), "BorC")
\end{Sinput}
\begin{Soutput}
The original levels A B C 
have been replaced by A BorC 
\end{Soutput}
\begin{Sinput}
  table(xrc, x)
\end{Sinput}
\begin{Soutput}
      x
xrc    A B C
  A    2 0 0
  BorC 0 2 2
\end{Soutput}
\end{Schunk}
