[所有分类]判别分析.ppt

下载文档 降价啦

56
0
约1.36万字
约 88页
2018-02-18 发布于浙江
举报
版权申诉
保障服务

[所有分类]判别分析.ppt

1、本文档共88页，可阅读全部内容。
2、原创力文档（book118）网站文档一经付费（服务费），不意味着购买了该文档的版权，仅供个人/单位学习、研究之用，不得用于商业用途，未经授权，严禁复制、发行、汇编、翻译或者网络传播等，侵权必究。
3、本站所有内容均由合作方或网友上传，本站不对文档的完整性、权威性及其观点立场正确性做任何保证或承诺！文档内容仅供研究参考，付费前请自行鉴别。如您付费，意味着您自己接受本站规则且自行承担风险，本站不退款、不进行额外附加服务；查看《如何避免下载的几个坑》。如果您已付费下载过本站文档，您可以点击这里二次下载。
4、如文档侵犯商业秘密、侵犯著作权、侵犯人身权等，请点击“版权申诉”（推荐），也可以打举报电话：400-050-0827(电话支持时间：9:00-18:30)。

[所有分类]判别分析

Call: manova(y ~ x) Terms: x Residuals Sepal.Length 63.2121 38.9562 Sepal.Width 11.3449 16.9620 Petal.Length 437.1028 27.2226 Petal.Width 80.4133 6.1566 Deg. of Freedom 2 147 Residual standard error: 0.5147894 0.3396877 0.4303345 0.2046500 Estimated effects may be unbalanced summary(a) Df Pillai approx F num Df den Df Pr(F) x 2 1.192 53.466 8 290 2.2e-16 *** Residuals 147 ---Signif. codes: 0 *** 0.001 ** 0.01 * 0.05 . 0.1 1 说明三组之间存在显著差异用MAHALANOBIS计算距离,并判别 ###计算距离 s-y[1:50,] Vers-y[51:100,] vir-y[101:150,] d1-mahalanobis(y,colMeans(s),var(s)) d2-mahalanobis(y,colMeans(Vers),var(Vers)) d3-mahalanobis(y,colMeans(vir),var(vir)) d-cbind(d1,d2,d3) as.matrix(d)-d apply(d,1,which.min)-discrim a-c(rep(1,50),rep(2,50),rep(3,50)) table(a,discrim ) 看看判别的效果, 算出来的距离矩阵为 [1] 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 1 [51] 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 3 2 3 2 2 2 2 2 2 2 2 2 2 3 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 2 [101] 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 3 判别的结果为第二组有三个样本被误判,总的来说回代判别正确率为98% discrim a 1 2 3 1 50 0 0 2 0 47 3 3 0 0 50 利用Fisher判别来进行判别分析 library(MASS) lda(y,prior=rep(1/3,3),grouping=x)-y.f summary(y.f) predict(y.f)$class -pred pred table(pred,x) x pred setosa versicolor virginica setosa 50 0 0 versicolor 0 48 1 virginica 0 2 49 可看出只有三个错判,回代判别的正确率很高 [1] setosa setosa setosa setosa setosa setosa setosa setosa setosa setosa [11] setosa setosa setosa setosa setosa setosa setosa setosa setosa setosa [21] setosa setosa setosa setosa setosa setosa s