As stated in the comments, you can save the Poisson model and do it with an offset:
glm(response~predictor1+predictor2+predictor3+ ... + offset(log(population),
family=poisson,data=...)
Or you can use binomial GLM, or
glm(cbind(response,pop_size-response) ~ predictor1 + ... , family=binomial,
data=...)
or
glm(response/pop_size ~ predictor1 + ... , family=binomial,
weights=pop_size,
data=...)
, .
,
link log to logit, family=binomial(link="log")), .
+ ( , pscl, ZIP, , , ), , .
, glmmADMB , .