\begin{Schunk}
\begin{Sinput}
 myintegers <- c(1, 3, 5, 7, 9, 9, 7, 5, 3, 1)
 myfactor <- factor(myintegers, levels = c(1, 3, 5, 7, 9), 
                     labels = c("E", "D", "C", "B", "A"))
\end{Sinput}
\end{Schunk}
