data(synt.data)
plot(synt.data)
cor(synt.data)
syntFKM=FKM(synt.data)
syntFKM.gk=FKM.gk(synt.data)
par(mfcol = c(2,1))
plot(synt.data,col=syntFKM$clus[,1])
plot(synt.data,col=syntFKM.gk$clus[,1])
Run the code above in your browser using DataLab