#prédire la classification des nouvelles données 
#charger les nouvelles données 
classify.me<-read.csv("classifyme.csv", header = T)

#prédire le groupement des nouvelles données
predict.group<-predict(LDA, newdata=classify.me)

#donner la classification pour chaque site
group.new<-predict.group$class