R语言判别分析实验报告

《R语言判别分析实验报告》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、R语言判别分析实验报告班级：应数1201学号：12404108姓名：麦琼辉时间：2014年11月28号1实验目的及要求1)了解判别分析的目的和意义；2)熟悉R语言中有关判别分析的算法基础。2实验设备（环境）及要求个人计算机一台，装有R语言以及RStudio并且带有MASS包。3实验内容企业财务状况的判别分析4实验主要步骤1)数据管理：实验对21个破产的企业收集它们在前两年的财务数据，对25个财务良好的企业也收集同一时期的数据。数据涉及四个变量：CF_TD（现金/总债务）；NI_TA（净收入/总资产）；CA_CL（流动资产/流动债务）；CA

2、_NS（流动资产/净销售额），一个分组变量：企业现状（1：非破产企业，2：破产企业）。2)调入数据：对数据复制，然后在RStudio编辑器中执行如下命令。case5=read.table(‘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

3、,ZId$class))1)Fisher判别效果（异方差，非线性判别--二次判别qda）：再次采用Bayes方式，相关的RStudio程序命令如下所示。library(MASS)qd=qda(G~.,data=case5);qd#二次判别Zqd=predict(qd)addmargins(table(case5$G,Zqd$class))5实验结果表1线性判别lda效果原分类新分类12合计124125231821合计271946符合率91.30%表2二次判别qda效果原分类新分类12合计124125221921合计262046符合率93.

4、50%由表1和表2可知，qda（二次判别---非线性判别）的效果比lda（一次判别）要好。6实验小结通过本次实验了解了判别分析的目的和意义，并熟悉R语言中有关判别分析的算法基础。