likelihood function of poisson distribution in r