\begin{Schunk}
\begin{Sinput}
 ## Declare a vector heinz57, do something to each element
 heinz57 <- vector(mode = "numeric", length = 57)
 for(i in 1:57) {
      heinz57[i] <- log(i)
  }
\end{Sinput}
\end{Schunk}
