[adegenet-commits] r252 - pkg/R

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

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

Modified:
   pkg/R/handling.R
Log:
fix in [] operator, now keeps the right type and ploidy slots.


Modified: pkg/R/handling.R
===================================================================
--- pkg/R/handling.R	2009-01-27 12:18:17 UTC (rev 251)
+++ pkg/R/handling.R	2009-01-27 12:49:43 UTC (rev 252)
@@ -212,7 +212,7 @@
               prevcall <- match.call()
               tab <- tab[i, j, ...,drop=FALSE]
 
-              res <- genind(tab,pop=pop,prevcall=prevcall)
+              res <- genind(tab,pop=pop,prevcall=prevcall, ploidy=x at ploidy, type=x at type)
 
               ## handle 'other' slot
               nOther <- length(x at other)