> data <- read.table("~/Dropbox/stats_R/3_5/data_norm.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.91383  -0.29417  -0.08275   0.18000   1.20366  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)  
(Intercept)  -1.2048     0.4997  -2.411   0.0159 *
data$ratt     1.3188     0.9461   1.394   0.1634  
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 17.556  on 74  degrees of freedom
Residual deviance: 15.562  on 73  degrees of freedom
AIC: 86.846

Number of Fisher Scoring iterations: 4
