logistic model

The data set \"chickwts\" records an experiment comparing the effect of different feeds on chicken weight. Let's reverse that and see whether we can predict which feed a particular chicken recieved. We'll focus on only two feeds, linseed and sunower, and the following code will help you create a data set with only those two feeds and with a proper dummy variable. data(chickwts) chickwtsub modell summary(model1) Call: glm(formula = sunflower ~ weight, family = binomial, data = chickwtsub) Deviance Residuals: Min 1Q Median 3Q Max -1.8128 -0.3380 -0.0045 0.4088 2.2464 Coefficients: Estimate Std. Error 2 value Pr(>|z|) (Intercept) 12.97105 5.21033 2.489 0.0128 * weight 0.04660 0.01826 2.552 0.0107 * Signif. codes: 0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1 (Dispersion parameter for binomial family taken to be 1) Null deviance: 33.271 on 23 degrees of freedom Residual deviance: 14.24? on 22 degrees of freedom AIC: 18.247 Number of Fisher Scoring iterations: 6