建立Logistic模型进行分析--课后习题3（多元统计分析）

习题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，则表示贷款失败，不会提供贷款。