请教各位朋友，如何用R进行logistic回归模型的整体检验（要得出P值的），如何求模型R方值。谢谢！summary()中好像看不出。

> summary(temp.mod)

Call:
glm(formula = hl ~ sex + age + edu + city.rural + year, family = "binomial",
    data = temp)

Deviance Residuals:
    Min       1Q   Median       3Q      Max  
-1.4125  -0.7706  -0.5632  -0.3084   2.5742  

Coefficients:
              Estimate Std. Error z value Pr(>|z|)   
(Intercept) -1.737e+02  1.487e+01 -11.680  < 2e-16 ***
sex          1.271e-01  2.717e-02   4.677 2.91e-06 ***
age          1.624e-04  1.093e-03   0.149    0.882   
edu          6.316e-01  1.710e-02  36.942  < 2e-16 ***
city.rural  -1.930e-01  3.085e-02  -6.256 3.94e-10 ***
year         8.455e-02  7.391e-03  11.441  < 2e-16 ***
---
Signif. codes:  
0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 36454  on 33605  degrees of freedom
Residual deviance: 33600  on 33600  degrees of freedom
  (1 observation deleted due to missingness)
AIC: 33612

Number of Fisher Scoring iterations: 4