\begin{Schunk}
\begin{Sinput}
 celToFaren <- function(input=0){ 9/5 * input + 32 }
 celToFaren(100)
\end{Sinput}
\begin{Soutput}
[1] 212
\end{Soutput}
\begin{Sinput}
 celToFaren(25)
\end{Sinput}
\begin{Soutput}
[1] 77
\end{Soutput}
\begin{Sinput}
 celToFaren(0)
\end{Sinput}
\begin{Soutput}
[1] 32
\end{Soutput}
\end{Schunk}
