#Exécuter la PCA
env.pca<-rda(env.z) # ou rda(env, scale=TRUE)

#Extraction des résultats
summary(env.pca)
summary(env.pca, scaling=2)