[adegenet-commits] r253 - pkg/R

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

Author: jombart
Date: 2009-01-27 13:53:49 +0100 (Tue, 27 Jan 2009)
New Revision: 253

Modified:
   pkg/R/genind2genpop.R
Log:
ploidy and type passed to constructor


Modified: pkg/R/genind2genpop.R
===================================================================
--- pkg/R/genind2genpop.R	2009-01-27 12:49:43 UTC (rev 252)
+++ pkg/R/genind2genpop.R	2009-01-27 12:53:49 UTC (rev 253)
@@ -59,7 +59,7 @@
 
   prevcall <- match.call()
 
-  res <- genpop(tab=tabcount, prevcall=prevcall)
+  res <- genpop(tab=tabcount, prevcall=prevcall, ploidy=x at ploidy, type=x at type)
   res at other <- x at other
 
   if(missing != "NA"){