\begin{Schunk}
\begin{Sinput}
 x <- vector()
 y <- vector()
 for (i in 1:10) {
     x[i] <- log(i)
     y[i] <- exp(x[i])
  }
 cbind(i = 1:10, x, y)
\end{Sinput}
\begin{Soutput}
       i         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}
