Call:
glm(formula = state ~ oseco + age + appearance, family = binomial,
    data = love)

Deviance Residuals:
    Min       1Q   Median       3Q      Max  
-1.8742  -0.7424  -0.5789  -0.4014   2.2621  

Coefficients:
            Estimate Std. Error z value Pr(>|z|)   
(Intercept) -4.64785    0.47369  -9.812  < 2e-16 ***
oseco        0.29187    0.07233   4.035 5.45e-05 ***
age          0.48456    0.06643   7.295 2.99e-13 ***
appearance   0.45443    0.13410   3.389 0.000702 ***
---
Signif. codes:  0 ‘***’ 0.001 ‘**’ 0.01 ‘*’ 0.05 ‘.’ 0.1 ‘ ’ 1

(Dispersion parameter for binomial family taken to be 1)

    Null deviance: 1095.0  on 986  degrees of freedom
Residual deviance: 1011.3  on 983  degrees of freedom
AIC: 1019.3
结果如上