model <- glm(Y ~ X, family=poisson(link="log"))
summary(model)