Update poisson.r