R语言有没有做fuzzy c means的包

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

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

立即领取

感谢您参与论坛问题回答

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

+2 论坛币

知道有一个fclust的包，但是里面是fuzzy k means，而不是c means，记得原来见过c means的包，但是找不到了，不知道有没有办法做c means，还有一个问题是模糊聚类中不是一对一的聚类，而是每个元素对不同的类有不同的权重，怎么能在结果中展现出来呢？有没有什么代码可以得到元素对每一类的权重？

扫码加我 拉你入群

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

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

分享0 收藏0 回帖

关键词：means Fuzzy mean ans R语言 R语言 聚类

附我的代码:
> library(fclust)
> data(Mc)
> for (j in 2:(ncol(Mc)-1))
> Mc[,j]=Mc[,j]/Mc[,1]
> Mc=Mc[,-c(1,ncol(Mc))]
> clust=FKM(Mc[,1:(ncol(Mc)-1)],k=6,m=1.5,stand=1)

找到cmeans函数了，但是根据下面的例子得到的结果却不对
x<-rbind(matrix(rnorm(150,sd=0.3),ncol=3),
         matrix(rnorm(150,mean=1,sd=0.3),ncol=3),
         matrix(rnorm(150,mean=2,sd=0.3),ncol=3))
cl<-cmeans(x,6,20,verbose=TRUE,method="cmeans",m=2)
print(cl)
运行结果为
> cl<-cmeans(x,6,20,verbose=TRUE,method="cmeans",m=2)
Iteration:   1, Error:  0.1355553279
Iteration:   2, Error:  0.1235508313
Iteration:   3, Error:  0.1215015241
Iteration:   4, Error:  0.1209991763
Iteration:   5, Error:  0.1207058402
Iteration:   6, Error:  0.1204125206
Iteration:   7, Error:  0.1201017473
Iteration:   8, Error:  0.1198172941
Iteration:   9, Error:  0.1195926123
Iteration:  10, Error:  0.1194235173
Iteration:  11, Error:  0.1192937795
Iteration:  12, Error:  0.1191909273
Iteration:  13, Error:  0.1191070373
Iteration:  14, Error:  0.1190371871
Iteration:  15, Error:  0.1189783745
Iteration:  16, Error:  0.1189287904
Iteration:  17, Error:  0.1188872868
Iteration:  18, Error:  0.1188529950
Iteration:  19, Error:  0.1188250945
Iteration:  20, Error:  0.1188027211
> print(cl)

Fuzzy clustering object of class 'fclust'

Number of objects:


Number of clusters:


Closest hard clustering partition:
Error in cl.memb(U) : The membership degree matrix U is empty

这个Error怎么改呢?

跳蚤侠 发表于 2015-5-14 12:04
找到cmeans函数了，但是根据下面的例子得到的结果却不对
x

函数是在e1071包里的