(word版)R语言判别分析实验报告.docx

(word版)R语言判别分析实验报告
(word版)R语言判别分析实验报告
1 / 31
(word版)R语言判别分析实验报告
语言判别分析实验报告
班级：应数1201
学号：12404108
姓名：麦琼辉
时间：2021年11月2(word版)R语言判别分析实验报告
(word版)R语言判别分析实验报告
1 / 31
(word版)R语言判别分析实验报告
语言判别分析实验报告
班级：应数1201
学号：12404108
姓名：麦琼辉
时间：2021年11月28号
实验目的及要求
了解判别分析的目的和意义；
熟悉R语言中有关判别分析的算法根底。
实验设备〔环境〕及要求
个人计算机一台，装有 R语言以及RStudio并且带有MASS包。
实验内容
企业财务状况的判别分析
实验主要步骤
1)数据管理：实验对21个破产的企业收集它们在前两年的财务数据，对
25个
财务良好的企业也收集同一时期的数据。数据涉及四个变量： CF_TD〔现金
/总债务〕；NI_TA〔净收入/总资产〕；CA_CL〔流动资产/流动债务〕；CA_NS
〔流动资产/净销售额〕，一个分组变量：企业现状〔 1：非破产企业，2：破
产企业〕。
调入数据：对数据复制，然后在RStudio编辑器中执行如下命令。
case5=(‘clipboard’,head=T)
head(case5)
3) Fisher判别效果〔等方差，线性判别 lda〕：采用Bayes方式，即先验概率
为样本例数，相关的 RStudio程序命令如下所示。
library(MASS)
ld=lda(G~.,data=case5);ld #线性判别
ZId=predict(ld)
addmargins(table(case5$G,ZId$class))
Fisher判别效果〔异方差，非线性判别--二次判别qda〕：再次采用Bayes方式，相关的RStudio程序命令如下所示。
library(MASS)qd=qda(G~.,data=case5);qd二#次判别Zqd=predict(qd)addmargins(table(case5$G,Zqd$class))
实验结果
表1线性判别lda效果新分类
原分类
1