#faire la LDA
LDA<-lda(env,spa.group[,4])

#classification des objets en fonction de la LDA
spe.class <- predict(LDA)$class

#probabilités que les objets appartiennent à chaque groupe a posteriori
spe.post <- predict(LDA)$posterior

#tableau des classifications a priori et prédites
spe.table <- table(spa.group[,4], spe.class)

#proportion de classification correcte
diag(prop.table(spe.table, 1))