> data <- read.table("~/Dropbox/stats_R/3_5/join/data.csv", sep=",", header=T)
> fit <- glm(  data$nfoga ~ data$ratt , family = binomial)
Warning message:
In eval(expr, envir, enclos) : non-integer #successes in a binomial glm!
> summary(fit)

Call:
glm(formula = data$nfoga ~ data$ratt, family = binomial)

Deviance Residuals: 
     Min        1Q    Median        3Q       Max  
-0.95552  -0.21243  -0.02141   0.14458   1.38371  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)  
(Intercept)  -0.9178     0.4220  -2.175   0.0296 *
data$ratt     0.4448     0.5627   0.790   0.4293  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 20.300  on 145  degrees of freedom
Residual deviance: 19.666  on 144  degrees of freedom
AIC: 154.36

Number of Fisher Scoring iterations: 3
