# En utilisant la fonction cmdscale()
?cmdscale
cmdscale(dist(spe.hel), k=(nrow(spe)-1), eig=TRUE)

# En utilisant la fonction pcoa()
?pcoa
spe.h.pcoa<-pcoa(dist(spe.hel))

# Extraction des résultats
spe.h.pcoa 

# Représentation graphique
biplot.pcoa(spe .h.pcoa, spe.hel, dir.axis2=-1)