added example code from R presentation on Poisson football model