\begin{Schunk}
\begin{Sinput}
 mytemps <- 50 * runif(10)
 mytemps
\end{Sinput}
\begin{Soutput}
 [1] 13.368527  9.755055 12.565008 19.456645 42.179980 49.029872
 [7] 15.315985 13.520839 31.146880 31.192590
\end{Soutput}
\begin{Sinput}
 celToFaren(mytemps)
\end{Sinput}
\begin{Soutput}
 [1]  56.06335  49.55910  54.61701  67.02196 107.92396 120.25377
 [7]  59.56877  56.33751  88.06438  88.14666
\end{Soutput}
\end{Schunk}
