how to find lambda in poisson distribution in r