source('../../Data/get_lottery_data.R')
lottery = get_lottery_data()

logPop = log(lottery$pop) 

## The offset using logPop:
## 
m = glm(winners ~ area + mill, offset=logPop, family=poisson, data=lottery)
print(summary(m))

## The offset using logaPop:
## 
logaPop = log(1000*lottery$pop) 

m2 = glm(winners ~ area + mill, offset=logaPop, family=poisson, data=lottery)
print(summary(m2))