\begin{Schunk}
\begin{Sinput}
 x <- log(1:10)
 y <- vector()
 for (johnelway in seq_along(x)){
    y[johnelway] <- exp(x[johnelway])
  }
 cbind(johnelway = seq_along(x), x, y)
\end{Sinput}
\begin{Soutput}
      johnelway         x  y
 [1,]         1 0.0000000  1
 [2,]         2 0.6931472  2
 [3,]         3 1.0986123  3
 [4,]         4 1.3862944  4
 [5,]         5 1.6094379  5
 [6,]         6 1.7917595  6
 [7,]         7 1.9459101  7
 [8,]         8 2.0794415  8
 [9,]         9 2.1972246  9
[10,]        10 2.3025851 10
\end{Soutput}
\end{Schunk}
