# problem-12.1

problem-12.1 The logistic regression is carried out as follows:

    > res = glm(enjoyed ~ gender + age, data=tastesgreat,
    + family=binomial)
    > summary(res)
    ...
    Coefficients:
                Estimate Std. Error z value Pr(>|z|)
    (Intercept)  -8.1844     3.0964   -2.64   0.0082 **
    genderMale    2.4224     0.9559    2.53   0.0113 *
    age           0.1649     0.0652    2.53   0.0114 *
    ---
    Signif. codes:  0 `***' 0.001 `**' 0.01 `*' 0.05 `.' 0.1 ` ' 1

    (Dispersion parameter for binomial family taken to be 1)

        Null deviance: 55.452  on 39  degrees of freedom
    Residual deviance: 38.981  on 37  degrees of freedom
    AIC: 44.98

    Number of Fisher Scoring iterations: 5

This shows that both are flagged as significant.