R距离判别求助

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

用王斌会老师书中的mvstats包做距离判别，但是出现如下问题：
错误于solve.default(cov, ...) :
  系统计算上是奇异的: 倒条件数=6.55877e-20
代码如下：
#输入待测样本
class1<-data.frame(
x1=c(6,-11,90.2,-4,0,0.5,-10,0,20,-100,-100,13,-5,10,-8,0.6,-40.0),
x2=c(-11.5,-18.5,-17,-15,-14,-11.5,-19,-23,-22,-21.4,-21.5,-17.2,-18.5,-18,-14,-13,-20),
x3=c(19,25,17,13,20,19,21,5,8,7,15,18,15,14,16,26,22),
x4=c(90,-36,3,54,35,37,-42,-35,-20,-15,-40,2,18,50,56,21,-50)
)
#待测样本分类
temp<-c(1,3,2,1,2,3,3,1,3,1,2,2,1,1,1,3,3)
t<-factor(temp)
attach(class1)
library(mvstats)
#判定待测样本
discrim.dist(cbind(x1,x2,x3,x4),t)

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：mvstats Default stats fault Solve 样本

这个包还是别用了吧。。。CRAN上都木有