\begin{Schunk}
\begin{Sinput}
 x2a <- c(10, 9, 8, 7, 6, 5, 4, 3, 2, 1)
 x2b <- seq(10, 1, by = -1)
 identical(x2a, x2b)
\end{Sinput}
\begin{Soutput}
[1] TRUE
\end{Soutput}
\end{Schunk}
