# Data download
pot = read.table("https://perso.univ-rennes1.fr/bernard.delyon/data/poterie.dat",header=TRUE)
four = pot$FOUR
pot = pot[,1:9]


# Standardisation
Ps = scale(pot)  


#""" Kmeans """


#""" Gaussian mixture """