We used R to fit a logistic regression model to predict the probability of default from "balance" and student status (Yes, No). > attach(Default) > fit=glm(default ~ balance + student, family=binomial) > summary(fit) Call: glm(formula = default ~ balance + student, family = binomial) Deviance Residuals: Min 1Q Median 3Q Max -2.4578 -0.1422 -0.0559 -0.0203 3.7435 Coefficients: Estimate Std. Error z value Pr(>|z|) (Intercept) -10.7500 3.692e-01 -29.116 contrasts(default) Yes No 0 Yes 1 > probs=predict(fit,type="response") > probs[1:7] 2 3 4 5 6 7 1.409096e-03 1.140318e-03 1.005719e-02 4.469571e-04 1.943498e-03 2.050378e-03 2.441704e-03 > pred=rep("No", nrow(Default)) > pred[probs>.5]="Yes" > table(pred, default) default pred No Yes No 9628 228 Yes 39 105 Calculate the probability of default for a student who has a credit card balance of $2000. Please round to 3 decimal place. Do not enter in percentage