附我的代码:
> 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怎么改呢?

函数是在e1071包里的