fit_rongelap_poisson <- glm(counts ~ 1,
family = poisson(link = "log"),
offset = log(time), data = rongelap
)
summary(fit_rongelap_poisson)
Call:
glm(formula = counts ~ 1, family = poisson(link = "log"), data = rongelap,
offset = log(time))
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) 2.013954 0.001454 1385 <2e-16 ***
---
Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1
(Dispersion parameter for poisson family taken to be 1)
Null deviance: 61567 on 156 degrees of freedom
Residual deviance: 61567 on 156 degrees of freedom
AIC: 63089
Number of Fisher Scoring iterations: 4
