<div dir="ltr"><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Ana Paula,<br><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">O seu exemplo não é reproduzível, você apenas enviou a saída do seu modelo mas eu não tenho como reconstruir os objetos para manipulá-los e estudar uma solução.<br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif">Segue uma possível solução com os exemplos disponíveis na documentação da glm().<br><br><span style="font-family:monospace,monospace">da <- data.frame(counts = c(18, 17, 15, 20, 10, 20, 25, 13, 12),<br>                 outcome = gl(3, 1, 9),<br>                 treatment = gl(3, 3))<br><br>m0 <- glm(counts ~ outcome + treatment,<br>          data = da,<br>          family = poisson())<br><br>deviance(m0)<br>df.residual(m0)<br>summary(m0)$dispersion</span><br></div><div class="gmail_default" style="font-family:trebuchet ms,sans-serif"><br></div>​À<div style="font-family:trebuchet ms,sans-serif;display:inline" class="gmail_default">​ disposição.<br></div><div style="font-family:trebuchet ms,sans-serif;display:inline" class="gmail_default">Walmes.​</div></div>