[adegenet-commits] r165 - pkg/R

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

Author: jombart
Date: 2008-08-12 11:47:22 +0200 (Tue, 12 Aug 2008)
New Revision: 165

Modified:
   pkg/R/old2new.R
Log:
Fix ploidy in old2new


Modified: pkg/R/old2new.R
===================================================================
--- pkg/R/old2new.R	2008-08-11 15:18:38 UTC (rev 164)
+++ pkg/R/old2new.R	2008-08-12 09:47:22 UTC (rev 165)
@@ -23,7 +23,7 @@
       theoLength <- theoLength + 1
   }
   res at call <- match.call()
-  res at ploidy <- 2
+  res at ploidy <- as.integer(2)
 
   if(length(object) > theoLength) warning("optional content else than pop and pop.names was not converted")