
Call:
glm(formula = varrespuesta ~ Estrato.económico + Edad, family = binomial("logit"))

Deviance Residuals: 
      Min         1Q     Median         3Q        Max  
-2.052718  -0.003942   0.002021   0.027684   2.097934  

Coefficients:
                                     Estimate Std. Error z value Pr(>|z|)   
(Intercept)                           20.1663     6.2016   3.252  0.00115 **
Estrato.económicoMás 3000 euros        6.0237     2.1965   2.742  0.00610 **
Estrato.económicoMenos de 1500 euros  -0.2375     2.2219  -0.107  0.91487   
Edad                                  -0.6544     0.2027  -3.229  0.00124 **
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1 

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 128.915  on 92  degrees of freedom
Residual deviance:  18.209  on 89  degrees of freedom
AIC: 26.209

Number of Fisher Scoring iterations: 9

[1] "Porcentaje correctamente clasificado total"
[2] "96.7741935483871"                          
[1] "Porcentaje correctamente clasificado Producto Compra"
[2] "97.8723404255319"                                    
[1] "Porcentaje correctamente clasificado Producto No Compra"
[2] "95.6521739130435"                                       
