[adegenet-commits] r536 - pkg/R

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

Author: jombart
Date: 2010-01-18 13:16:23 +0100 (Mon, 18 Jan 2010)
New Revision: 536

Modified:
   pkg/R/find.clust.R
Log:
Fixed a bug arising when n.clust is provided.


Modified: pkg/R/find.clust.R
===================================================================
--- pkg/R/find.clust.R	2010-01-15 14:14:30 UTC (rev 535)
+++ pkg/R/find.clust.R	2010-01-18 12:16:23 UTC (rev 536)
@@ -124,6 +124,8 @@
             }
 
         }
+    } else { # if n.clust provided
+        myStat <- NULL
     }
 
     ## get final groups