generate random sample from exponential distribution in r