《(完整word版)R语言判别分析实验报告》由会员分享，可在线阅读，更多相关《(完整word版)R语言判别分析实验报告（2页珍藏版）》请在金锄头文库上搜索。
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（流动资产 /流动债务）；
2、CA_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,ZId$class)4) Fishe
3、r 判别效果（异方差，非线性判别 -二次判别 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.50%由表 1 和表 2 可知， qda（二次判别 - 非线性判别）的效果比 lda（一次判别）要好。6 实验小结通过本次实验了解了判别分析的目的和意义，并熟悉 R 语言中有关判别分析的算法基础。
