习题3:某银行从历史贷款客户中随机抽取16个样本,根据设计的指标体系分别计算他们的商业信用支持度X1和市场竞争地位等级X2。类别变量记中1代表贷款成功,2代表贷款失败数据,如表所示。完成习题
(1)为了给正确贷款提供决策支持,请建立Logistic模型进行分析。
(2)根据建立的模型判定是否给某客户X1=131 X2=-2提供贷款。
(1)为了给正确贷款提供决策支持,请建立Logistic模型进行分析。
已知表格内容:
(下载表格链接:
链接:https://pan.baidu.com/s/1J-a-jeoiV4EJjCX-SXCSKA?pwd=zhh1
提取码:zhh1)
第一步读入数据:
输入命令:
E5.3 <- read_excel("G:/学习app/作业合集/R语言/test/test01/练习题3.xlsx","E5.3")
第二步Logistic回归模型:
输入命令分别为:
logit.glm = glm(G ~ x1 + x2,data = E5.3)
summary(logit.glm)
分析:合的模型x1(商业信用支持度)的P>0.05,x2(市场竞争地位等级)的P<0.05,说明有影响。
(2)根据建立的模型判定是否给某客户X1=131 X2=-2提供贷款。
第一步逐步筛选法进行变量选择:
输入命令:
logit.step <- step(logit.glm,direction = 'both')
逐步筛选法进行变量选择结果:
输入命令:
summary(logit.step)
第二步进行标椎化:
输入命令:
pre1 <- predict(logit.glm,data.frame(x1 = 131,x2 = -2))
pre1
pre2 <- predict(logit.step,data.frame(x1 = 131,x2 = -2))
pre2
由上述结果可知,预测值为2,则表示贷款失败,不会提供贷款。