Merge branch 'patch-1' into 'master'

Update R_amplicon_analysis_two_parameters

See merge request !4

R_amplicon_analysis_two_parameters

@@ -400,8 +400,9 @@ ensemble2<-function(a,b,name,OTUnumber,seuil=0.05)
         stat_ellipse(geom="polygon", alpha=0.1, inherit.aes=TRUE) +
         coord_equal() +
         ggtitle(paste("NMDS", name,colnames(b)[temp1],colnames(b)[temp2])) +
-        xlab(paste("NMDS1",datas$eig[1])) + 
-        ylab(paste("NMDS2",datas$eig[2])) +
+        ##WARNING : datas are coming from PCA
+        #xlab(paste("NMDS1",datas$eig[1])) + 
+        #ylab(paste("NMDS2",datas$eig[2])) +
         theme_bw() + 
         theme(axis.text.x = element_blank(),  
               axis.text.y = element_blank(),