[adegenet-commits] r555 - pkg/R

[noreply at r-forge.r-project.org]

Author: jombart
Date: 2010-02-08 16:30:20 +0100 (Mon, 08 Feb 2010)
New Revision: 555

Modified:
   pkg/R/find.clust.R
Log:
Commented a pointless warning.


Modified: pkg/R/find.clust.R
===================================================================
--- pkg/R/find.clust.R	2010-02-08 15:06:59 UTC (rev 554)
+++ pkg/R/find.clust.R	2010-02-08 15:30:20 UTC (rev 555)
@@ -56,7 +56,7 @@
     X.rank <- length(pcaX$eig)
     n.pca <- min(X.rank, n.pca)
     if(n.pca >= N) warning("number of retained PCs of PCA is greater than N")
-    if(n.pca > N/3) warning("number of retained PCs of PCA may be too large (> N /3)")
+    ##if(n.pca > N/3) warning("number of retained PCs of PCA may be too large (> N /3)")
 
     XU <- pcaX$li[, 1:n.pca, drop=FALSE] # principal components