# NOT RUN {
data(iris)
x <- iris[,1:4]
# Run FCM
res.fcm <- fcm(x, centers=3)
# Crisp the fuzzy memberships degrees and plot the crisp memberships
cllabels <- crisp(res.fcm$u)
plot(x, col=cllabels)
# }
Run the code above in your browser using DataLab