\begin{Schunk}
\begin{Sinput}
 myintegers <- c(1, 3, 5, 7, 9, 9, 7, 5, 3, 1)
 yourfactor <- factor(myintegers, levels = c(1, 9, 7), 
  labels = c("cold", "warm", "hot"))
\end{Sinput}
\end{Schunk}
