spe.scores<-scores(spe.h.pca, display="species", choices=c(1,2)) # scores des espèces selon les premier et deuxième axes 
site.scores<-scores(spe.h.pca, display="sites", choices=c(1,2)) # scores des sites selon les premier et deuxième axes 
#Remarque: si vous ne spécifiez pas le nombre de composantes principales à l'aide de choices = c (1,2) 
#(ou choices = c (1: 2)), les scores selon toutes les composantes principales seront extraits.