library(pgmm) wine <- read.table(file='https://archive.ics.uci.edu/ml/machine-learning-databases/wine/wine.data',sep=',',dec='.') # charge les données wine dont une description est disponible dans : help(wine) x <- rbind.data.frame(wine[,-1],new) z <- c(wine[,1],0) out <- pgmmEM(x,rG=3:3,class=z) cat('\n') cat('------------','\n') cat('Probabilités de provenir des régions 1/2/3 : ', out$zhat[179,],'\n') cat('------------','\n') cat('La région d\'origine la plus probable : ', out$map[179],'\n')