## example n.1 (k-means case)
data(unemployment)
unempFKM=FKM(unemployment,k=3,stand=1)
unempFKM$H
unempFKM$Hraw=Hraw(unempFKM$X,unempFKM$H)
## example n.2 (k-medoids case)
data(unemployment)
## It may take more than a few seconds
unempFKM.med=FKM.med(unemployment,k=3,RS=10,stand=1)
## in the fuzzy k-medoids algorithm, one can equivalently use
unempFKM.med$Hraw1=Hraw(unempFKM.med$X,unempFKM.med$H)
unempFKM.med$Hraw2=unempFKM.med$X[unempFKM.med$medoid,]
Run the code above in your browser using DataLab