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.