AAAI analysis in R

AAAI.r

votes.years <- read.csv("regressme.txt", sep="\t")
dummy <- as.numeric(votes.years$vote==2)
m <- glm(dummy ~ regress.me$year, family=binomial("logit"))
> summary(m)

Call:
glm(formula = dummy ~ regress.me$year, family = binomial("logit"))

Deviance Residuals: 
    Min       1Q   Median       3Q      Max  
-1.2862  -1.1596  -0.9117   1.1537   1.5866  

Coefficients:
                 Estimate Std. Error z value Pr(>|z|)
(Intercept)     -65.54804   50.63311  -1.295    0.195
regress.me$year   0.03269    0.02527   1.293    0.196

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 123.28  on 88  degrees of freedom
Residual deviance: 121.55  on 87  degrees of freedom
AIC: 125.55

Number of Fisher Scoring iterations: 4