likelihood function for exponential distribution in r