dados=read.table("Teste1.txt",header=FALSE)
dados
x=cbind(matrix(dados[,1]),
	matrix(dados[,2]),
	matrix(dados[,3]),
	matrix(dados[,4]),
	matrix(dados[,5])) #transformação necessária para utilizar o comando
#intcriteria, a frente.
x
is.matrix(x)
c=cmeans(x,2,200,verbose=TRUE,dist="euclidean", method="cmeans",m=1.1)
names(c)
c$cluster
c$centers
c$size
fclustIndex(c,x,index="all")  #dá zero. não sei pq. então 
intCriteria(x, c$cluster, "xie_beni")




######ignorar por enquanto
(ms=seq(1.1,2.5,.1))
for(i in 1:length(ms))
	{ 
	 j=ms[i]
	 grupamentos=cmeans(x,2,200,verbose=TRUE,dist="euclidean", method="cmeans",m=j)
	 lista[,,i]=grupamentos$membership
	 erros[i,]=grupamentos$withinerror
	}