Exponential growth in R (lab 1)