> chmod1 <- glm(formula=indfail ~ degrees, family=binomial("logit"))
> summary(chmod1)

Call:
glm(formula = indfail ~ degrees, family = binomial("logit"))

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-1.0611  -0.7613  -0.3783   0.4524   2.2175  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)  
(Intercept)  15.0429     7.3786   2.039   0.0415 *
degrees      -0.2322     0.1082  -2.145   0.0320 *
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 28.267  on 22  degrees of freedom
Residual deviance: 20.315  on 21  degrees of freedom
AIC: 24.315

Number of Fisher Scoring iterations: 5

> 
> anova(chmod1, test="Chisq")
Analysis of Deviance Table

Model: binomial, link: logit

Response: indfail

Terms added sequentially (first to last)


        Df Deviance Resid. Df Resid. Dev P(>|Chi|)   
NULL                       22     28.267             
degrees  1    7.952        21     20.315  0.004804 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 
>