\begin{Schunk}
\begin{Sinput}
 x <- c("hello", "jello", "fellow", "mellow")
 substr(x, 2, 5)
\end{Sinput}
\begin{Soutput}
[1] "ello" "ello" "ello" "ello"
\end{Soutput}
\end{Schunk}
