mle for exponential distribution in r