I am building a Poisson regression (Model name fit_4
) with a composite count (score) data as the dependent variable and other several variables as an independent. The mean (6.780) and variance (6.686) of the count variable is almost the same. Also, mean and variance are conditionally equal across all disaggregation. But, whenever I am trying to figure out the p-value for Goodness of Fit for the said regression, I am getting the value exactly 1. R code used for p-vale for Good-of-Fit is pchisq(fit_4$deviance, df=fit_4$df.residual, lower.tail=FALSE)
Is it really possible to get a p-value exactly 1? Any lead to examine Goodness-of-Fit for this Poisson Model would be a great help. The summary result of poisson regression is presented below:
Call:
glm(formula = ci_score ~ r1_gender + r2_merginalised + r8_LogUMPCE +
r6_tenure + r8_LogUMPCE * r6_tenure + r4_city_size + r5_settlement,
family = poisson(), data = hh18_u_r)
Deviance Residuals:
Min 1Q Median 3Q Max
-3.9098 -0.5988 0.1202 0.6221 2.6329
Coefficients:
Estimate Std. Error z value Pr(>|z|)
(Intercept) -0.743868 0.054038 -13.766 < 2e-16 ***
r1_genderMale 0.090131 0.005507 16.368 < 2e-16 ***
r2_merginalisedOthers 0.051838 0.003915 13.240 < 2e-16 ***
r8_LogUMPCE 0.265806 0.006497 40.910 < 2e-16 ***
r6_tenureOwned 0.257248 0.062617 4.108 3.99e-05 ***
r4_city_sizeMillion Plus cities -0.006902 0.003790 -1.821 0.0686 .
r5_settlementOthers 0.248393 0.008909 27.880 < 2e-16 ***
r8_LogUMPCE:r6_tenureOwned -0.001872 0.007586 -0.247 0.8051
---
Signif. codes: 0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1
(Dispersion parameter for poisson family taken to be 1)
Null deviance: 51231 on 43096 degrees of freedom
Residual deviance: 40518 on 43089 degrees of freedom
AIC: 198160
Number of Fisher Scoring iterations: 4
Also, is there any easy way to export publication-quality results of Poisson Regression from R to MS Word? Kindly help me.