[adegenet-commits] r511 - pkg/R

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

Author: jombart
Date: 2009-12-04 18:11:22 +0100 (Fri, 04 Dec 2009)
New Revision: 511

Modified:
   pkg/R/dapc.R
Log:
don't remember changes.


Modified: pkg/R/dapc.R
===================================================================
--- pkg/R/dapc.R	2009-12-04 15:03:42 UTC (rev 510)
+++ pkg/R/dapc.R	2009-12-04 17:11:22 UTC (rev 511)
@@ -119,7 +119,7 @@
 ###################
 ## find.clusters.genind
 ###################
-find.clusters.genind <- function(x, n.pca=NULL, n.clust=NULL, stat=c("BIC", "AIC", "WSS"),
+find.clusters.genind <- function(x, n.pca=NULL, n.clust=NULL, stat=c("BIC", "AIC", "WSS"), choose.n.clust=TRUE,
                           max.n.clust=round(nrow(x at tab)/10), n.iter=1e6, n.start=100,
                           scale=TRUE, scale.method=c("sigma", "binom"), truenames=TRUE){
 
@@ -143,7 +143,7 @@
 
     ## CALL DATA.FRAME METHOD
     res <- find.clusters(X, n.pca=n.pca, n.clust=n.clust, stat=stat, max.n.clust=max.n.clust, n.iter=n.iter, n.start=n.start,
-                         center=FALSE, scale=FALSE)
+                         choose.n.clust=choose.n.clust, center=FALSE, scale=FALSE)
     return(res)
 } # end find.clusters.genind